--- a/ClassOrganizer.st	Mon Jun 16 20:22:17 1997 +0200
+++ b/ClassOrganizer.st	Thu Jun 19 18:24:41 1997 +0200
@@ -69,7 +69,7 @@
     |set|
 
     set := IdentitySet new.
-    class methodArray do:[:m |
+    class methodDictionary keysAndValuesDo:[:sel :m |
         set add:m category
     ].
     ^ set asArray
@@ -77,6 +77,8 @@
     "
      SmallInteger organization categories 
     "
+
+    "Modified: 19.6.1997 / 17:59:22 / cg"
 !
 
 categoryOfElement:aSelectorSymbol
@@ -204,5 +206,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.9 1997-03-05 16:10:48 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.10 1997-06-19 16:24:41 cg Exp $'
 ! !