--- a/ClassOrganizer.st	Wed Mar 05 12:41:46 1997 +0100
+++ b/ClassOrganizer.st	Wed Mar 05 17:10:48 1997 +0100
@@ -112,8 +112,8 @@
     |list|
 
     list := OrderedCollection new.
-    class methodArray with:class selectorArray do:[:m :s |
-	m category == aCategorySymbol ifTrue:[list add:s]
+    class methodDictionary keysAndValuesDo:[:sel :mthd |
+        mthd category == aCategorySymbol ifTrue:[list add:sel]
     ].
     ^ list asArray
 
@@ -167,25 +167,25 @@
     |coll|
 
     coll := IdentityDictionary new.
-    class methodArray with:class selectorArray do:[:m :s |
-	|cat list|
+    class methodDictionary keysAndValuesDo:[:sel :mthd |
+        |cat list|
 
-	cat := m category.
-	list := coll at:cat ifAbsent:[].
-	list isNil ifTrue:[
-	    coll at:cat put:(list := OrderedCollection new).
-	].
-	list add:s
+        cat := mthd category.
+        list := coll at:cat ifAbsent:[].
+        list isNil ifTrue:[
+            coll at:cat put:(list := OrderedCollection new).
+        ].
+        list add:sel
     ].
     coll keysAndValuesDo:[:category :list |
-	aStream nextPut:$(.
-	aStream nextPutAll:category asString storeString.
-	list do:[:selector |
-	    aStream space.
-	    selector storeOn:aStream
-	].
-	aStream nextPut:$).
-	aStream cr
+        aStream nextPut:$(.
+        aStream nextPutAll:category asString storeString.
+        list do:[:selector |
+            aStream space.
+            selector storeOn:aStream
+        ].
+        aStream nextPut:$).
+        aStream cr
     ]
 
     "
@@ -204,5 +204,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.8 1996-05-18 15:37:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.9 1997-03-05 16:10:48 ca Exp $'
 ! !