diff --git a/ChangeLog b/ChangeLog
index 9e8523ab1..e29d065be 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2002-01-07  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Tools/AGSHtml.m: Minor speedup.
+	* Tools/AGSOutput.m: Put something in place of empty descriptions.
 	* Tools/AGSParser.m: Rewrite handling of standards information to fix
 	bug in NO_GNUSTEP handling.
 	* Source/GNUmakefile: Don't document concrete number stuff ... not
diff --git a/Tools/AGSOutput.m b/Tools/AGSOutput.m
index 63f157746..3907163d9 100644
--- a/Tools/AGSOutput.m
+++ b/Tools/AGSOutput.m
@@ -564,10 +564,11 @@ static BOOL snuggleStart(NSString *t)
     }
 
   [str appendString: @"          <desc>\n"];
-  if (comment != nil)
+  if ([comment length] == 0)
     {
-      [self reformat: comment withIndent: 12 to: str];
+      comment = @"<em>Descripttion forthcoming.</em>";
     }
+  [self reformat: comment withIndent: 12 to: str];
   [str appendString: @"          </desc>\n"];
   if (standards != nil)
     {
@@ -748,10 +749,11 @@ static BOOL snuggleStart(NSString *t)
 
   for (j = 0; j < ind; j++) [str appendString: @" "];
   [str appendString: @"<desc>\n"];
-  if (comment != nil)
+  if ([comment length] == 0)
     {
-      [self reformat: comment withIndent: ind + 2 to: str];
+      comment = @"<em>Descripttion forthcoming.</em>";
     }
+  [self reformat: comment withIndent: ind + 2 to: str];
   for (j = 0; j < ind; j++) [str appendString: @" "];
   [str appendString: @"</desc>\n"];