--- a/HTMLDocGenerator.st	Sat Feb 07 16:11:34 1998 +0100
+++ b/HTMLDocGenerator.st	Sat Feb 07 16:21:04 1998 +0100
@@ -501,10 +501,10 @@
             "/
             "/ strip off empty lines
             "/
-            [(docu at:1) size == 0] whileTrue:[
+            [docu notEmpty and:[(docu at:1) size == 0]] whileTrue:[
                 docu removeIndex:1
             ].
-            [(docu at:docu size) size == 0] whileTrue:[
+            [docu notEmpty and:[(docu at:docu size) size == 0]] whileTrue:[
                 docu removeIndex:(docu size)
             ].
         ].
@@ -1007,7 +1007,7 @@
     "
 
     "Created: / 24.4.1996 / 15:01:59 / cg"
-    "Modified: / 7.2.1998 / 16:09:33 / cg"
+    "Modified: / 7.2.1998 / 16:20:18 / cg"
 !
 
 htmlDocOf:aClass backRef:backRef
@@ -1699,5 +1699,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.26 1998-02-07 15:11:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.27 1998-02-07 15:21:04 cg Exp $'
 ! !