diff --git a/ChangeLog b/ChangeLog
index c6554db25..5e42879cb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2002-02-04  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Tools/gsdoc.m: loader() if entity id is missing, try to load url as
+	a file.
+
 2002-02-03  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/GNUmakefile: use -WordMap flag with autogsdoc to cope with
diff --git a/Tools/gsdoc.m b/Tools/gsdoc.m
index 83ebaa65b..125e80cbf 100644
--- a/Tools/gsdoc.m
+++ b/Tools/gsdoc.m
@@ -150,7 +150,15 @@ loader(const char *url, const char *eid, xmlParserCtxtPtr *ctxt)
   extern xmlParserInputPtr xmlNewInputFromFile();
   xmlParserInputPtr	ret = 0;
 
-  if (strncmp(eid, "-//GNUstep//DTD ", 16) == 0)
+  if (url == 0)
+    {
+      url = "";
+    }
+  if (eid == 0)
+    {
+      ret = xmlNewInputFromFile(ctxt, url);
+    }
+  else if (strncmp(eid, "-//GNUstep//DTD ", 16) == 0)
     {
       char	buf[BUFSIZ];
       char	*ptr;