--- a/ClassOrganizer.st	Mon Feb 07 12:32:44 2000 +0100
+++ b/ClassOrganizer.st	Mon Feb 07 17:07:34 2000 +0100
@@ -168,7 +168,7 @@
     class methodDictionary keysAndValuesDo:[:sel :mthd |
         mthd category == aCategorySymbol ifTrue:[list add:sel]
     ].
-    ^ list asArray
+    ^ list asOrderedCollection
 
     "
      SmallInteger organization listAtCategoryNamed:#arithmetic 
@@ -319,5 +319,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.15 2000-02-05 14:37:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.16 2000-02-07 16:07:34 cg Exp $'
 ! !