--- a/Tools__ClassCategoryList.st	Fri Mar 25 20:33:10 2016 +0100
+++ b/Tools__ClassCategoryList.st	Fri Mar 25 22:46:51 2016 +0100
@@ -506,6 +506,12 @@
 
     loadInProgress ifTrue:[
         something == #newClass ifTrue:[
+            rawCategoryList isNil ifTrue:[
+                "/ may affect me
+                self invalidateList.
+                ^ self.
+            ].
+
             categoryOfClass := aParameter category.
             (self selectedCategoriesStrings includes:categoryOfClass) ifTrue:[
                 "/ affects me
@@ -1199,10 +1205,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.66 2015-05-19 16:38:10 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassCategoryList.st,v 1.66 2015-05-19 16:38:10 cg Exp $'
+    ^ '$Header$'
 ! !