--- a/ClassOrganizer.st	Mon Sep 25 22:19:25 2000 +0200
+++ b/ClassOrganizer.st	Wed Sep 27 09:47:09 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic3' }"
+
 Object subclass:#ClassOrganizer
 	instanceVariableNames:'globalComment categoryArray categoryStops elementArray class
 		categories'
@@ -96,6 +98,10 @@
     "Created: / 17.4.1998 / 14:42:16 / cg"
 !
 
+addCategory:aCategory before:symbolOrNil
+    "ignored."
+!
+
 categories
     "return a collection of my classes method-categorySymbols"
 
@@ -106,7 +112,7 @@
         class methodDictionary keysAndValuesDo:[:sel :m |
             set add:m category
         ].
-        categoryArray := set asArray
+        categoryArray := set asArray sort
     ].
     ^ categoryArray
 
@@ -325,5 +331,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.17 2000-03-21 12:56:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.18 2000-09-27 07:47:09 cg Exp $'
 ! !