--- a/HTMLDocGenerator.st	Tue Feb 11 20:58:21 1997 +0100
+++ b/HTMLDocGenerator.st	Sun Mar 02 00:26:31 1997 +0100
@@ -113,7 +113,9 @@
                     prefix := longest.
                 ] ifFalse:[
                     s nextPutLine:'</ul>'.
-                    prefixStack removeLast.
+                    prefixStack notEmpty ifTrue:[
+                        prefixStack removeLast.
+                    ].
 
                     [prefixStack notEmpty
                      and:[(longest startsWith:prefixStack last) not]] whileTrue:[
@@ -173,7 +175,7 @@
     "
 
     "Created: 22.4.1996 / 20:03:30 / cg"
-    "Modified: 5.1.1997 / 20:10:44 / cg"
+    "Modified: 2.3.1997 / 00:26:10 / cg"
 !
 
 htmlClassListPrefix:prefix
@@ -1567,5 +1569,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.14 1997-01-23 13:08:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.15 1997-03-01 23:26:31 cg Exp $'
 ! !