--- a/Tools_ClassCategoryList.st Wed Oct 24 12:08:06 2012 +0200
+++ b/Tools_ClassCategoryList.st Wed Oct 24 14:57:27 2012 +0200
@@ -722,7 +722,7 @@
Smalltalk allClassesDo:[:each |
|cat|
- each isNamespace ifFalse:[
+ each isNameSpace ifFalse:[
cat := each category string asSymbol.
(setOfCategories includes:cat) ifTrue:[
categoriesBag add:cat.
@@ -953,9 +953,9 @@
!ClassCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.37 2012-10-23 18:21:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.38 2012-10-24 12:57:27 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.37 2012-10-23 18:21:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.38 2012-10-24 12:57:27 cg Exp $'
! !