--- 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 $'
! !