--- a/Tools_ClassCategoryList.st	Sat Oct 18 13:52:12 2008 +0200
+++ b/Tools_ClassCategoryList.st	Sat Oct 18 19:02:30 2008 +0200
@@ -483,6 +483,12 @@
 
     allName := self class nameListEntryForALL.
 
+    (cats includes:allName) ifTrue:[
+        inGeneratorHolder value isOrderedCollection ifTrue:[
+            cats := categoryList value copyWithout:allName.
+        ]
+    ].
+
     hideUnloadedClasses := self hideUnloadedClasses value ? false.
     nameSpaceFilter := self nameSpaceFilter value.
     nameSpaceFilter notNil ifTrue:[
@@ -637,7 +643,7 @@
     ] ifFalse:[
         generator := inGeneratorHolder value.
         generator isNil ifTrue:[^ #() ].
-        generator do:[:cat | categories add:cat].
+        generator do:[:cat | categories add:cat string].
     ].
 
     categories := categories asOrderedCollection.
@@ -824,5 +830,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.18 2006-11-10 16:57:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.19 2008-10-18 17:02:30 cg Exp $'
 ! !