--- a/HTMLDocGenerator.st	Sun Mar 02 00:26:31 1997 +0100
+++ b/HTMLDocGenerator.st	Sun Mar 02 12:01:42 1997 +0100
@@ -63,8 +63,12 @@
             (common endsWith:'-') ifTrue:[
                 prefixList add:(common copyWithoutLast:1)
             ] ifFalse:[
-                common = prev ifTrue:[
-                    prefixList add:common
+                (common includes:$-) ifTrue:[
+                    prefixList add:(common copyTo:(common lastIndexOf:$-)-1).
+                ] ifFalse:[
+                    common = prev ifTrue:[
+                        prefixList add:common
+                    ]
                 ]
             ]
         ]
@@ -175,7 +179,7 @@
     "
 
     "Created: 22.4.1996 / 20:03:30 / cg"
-    "Modified: 2.3.1997 / 00:26:10 / cg"
+    "Modified: 2.3.1997 / 12:01:13 / cg"
 !
 
 htmlClassListPrefix:prefix
@@ -1569,5 +1573,5 @@
 !HTMLDocGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.15 1997-03-01 23:26:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HTMLDocGenerator.st,v 1.16 1997-03-02 11:01:42 cg Exp $'
 ! !