--- a/ResourceSelectionBrowser.st	Mon Aug 20 22:06:14 2012 +0200
+++ b/ResourceSelectionBrowser.st	Wed Aug 22 19:48:09 2012 +0200
@@ -661,11 +661,13 @@
 
         cls isPrivate ifFalse:[
             cat := cls category.
-            set := childrenPerCategory at:cat ifAbsent:nil.
-            set isNil ifTrue:[
-                childrenPerCategory at:cat put:(set := IdentitySet new).
+            cat notNil ifTrue:[
+                set := childrenPerCategory at:cat ifAbsent:nil.
+                set isNil ifTrue:[
+                    childrenPerCategory at:cat put:(set := IdentitySet new).
+                ].
+                set add:cls
             ].
-            set add:cls
         ] ifTrue:[
             privateClasses add:cls
         ]
@@ -698,6 +700,8 @@
         ].
         children
     ]
+
+    "Modified: / 22-08-2012 / 19:44:59 / cg"
 !
 
 treeViewClassCategoryIcon