--- a/Tools_ClassCategoryList.st	Tue Oct 23 10:39:59 2012 +0200
+++ b/Tools_ClassCategoryList.st	Tue Oct 23 10:44:29 2012 +0200
@@ -721,10 +721,12 @@
         Smalltalk allClassesDo:[:each |
             |cat|
 
-            cat := each category string asSymbol.
-            (setOfCategories includes:cat) ifTrue:[
-                categoriesBag add:cat.
-            ].
+            each isNamespace ifFalse:[
+                cat := each category string asSymbol.
+                (setOfCategories includes:cat) ifTrue:[
+                    categoriesBag add:cat.
+                ].
+            ]
         ].
     ].
 
@@ -950,9 +952,9 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.34 2012-10-20 19:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.35 2012-10-23 08:44:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.34 2012-10-20 19:44:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.35 2012-10-23 08:44:29 cg Exp $'
 ! !