--- a/ClassOrganizer.st	Thu Jan 25 22:42:56 2018 +0100
+++ b/ClassOrganizer.st	Thu Feb 15 19:04:04 2018 +0100
@@ -285,14 +285,7 @@
     class notNil ifTrue:[
         coll := IdentityDictionary new.
         class methodDictionary keysAndValuesDo:[:sel :mthd |
-            |cat list|
-
-            cat := mthd category.
-            list := coll at:cat ifAbsent:[].
-            list isNil ifTrue:[
-                coll at:cat put:(list := OrderedCollection new).
-            ].
-            list add:sel
+            (coll at:mthd category ifAbsentPut:[OrderedCollection new]) add:sel
         ].
     ] ifFalse:[
         coll := categories
@@ -314,7 +307,8 @@
      Number organization printString
     "
 
-    "Modified: / 30.10.2001 / 17:58:50 / cg"
+    "Modified: / 30-10-2001 / 17:58:50 / cg"
+    "Modified: / 15-02-2018 / 18:25:07 / stefan"
 ! !
 
 !ClassOrganizer methodsFor:'private access'!