--- a/ClassOrganizer.st	Wed Oct 31 11:53:52 2001 +0100
+++ b/ClassOrganizer.st	Mon Nov 05 14:57:06 2001 +0100
@@ -76,7 +76,16 @@
 for:aClass
     "create & return a new instance of myself, to organize aClass"
 
-    ^ self new class:aClass
+    ^ super new class:aClass
+
+    "Modified: / 31.10.2001 / 08:58:49 / cg"
+!
+
+new
+    self halt.
+    ^ super new
+
+    "Created: / 31.10.2001 / 08:58:39 / cg"
 ! !
 
 !ClassOrganizer class methodsFor:'defaults'!
@@ -85,6 +94,7 @@
     ^ 'as yet unspecified'
 ! !
 
+
 !ClassOrganizer methodsFor:'accessing'!
 
 addCategory:aCategory
@@ -293,22 +303,24 @@
     ] ifFalse:[
         coll := categories
     ].
-    coll keysAndValuesDo:[:category :list |
-        aStream nextPut:$(.
-        aStream nextPutAll:category asString storeString.
-        list do:[:selector |
-            aStream space.
-            selector storeOn:aStream
-        ].
-        aStream nextPut:$).
-        aStream cr
+    coll notNil ifTrue:[
+        coll keysAndValuesDo:[:category :list |
+            aStream nextPut:$(.
+            aStream nextPutAll:category asString storeString.
+            list do:[:selector |
+                aStream space.
+                selector storeOn:aStream
+            ].
+            aStream nextPut:$).
+            aStream cr
+        ]
     ]
 
     "
      Number organization printString
     "
 
-    "Modified: 20.6.1997 / 18:08:15 / cg"
+    "Modified: / 30.10.2001 / 17:58:50 / cg"
 ! !
 
 !ClassOrganizer methodsFor:'private access'!
@@ -329,5 +341,5 @@
 !ClassOrganizer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.19 2000-11-21 23:37:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassOrganizer.st,v 1.20 2001-11-05 13:57:06 cg Exp $'
 ! !