--- a/Tools_ClassCategoryList.st	Mon Jun 14 17:05:02 2004 +0200
+++ b/Tools_ClassCategoryList.st	Mon Jun 14 17:07:09 2004 +0200
@@ -726,11 +726,11 @@
     "/ those are simulated - in ST/X, empty categories do not
     "/ really exist; however, during browsing, it makes sense.
     AdditionalEmptyCategories isNil ifTrue:[
-	AdditionalEmptyCategories := Set new.
+        AdditionalEmptyCategories := Set new.
     ].
     AdditionalEmptyCategories add:aCategory.
 
-    Smalltalk changed:#organization   "/ not really ... to force update
+    Smalltalk changed:#organization with:(nil -> aCategory).  "/ not really ... to force update
 !
 
 removeAdditionalCategories:aListOfCategories
@@ -754,5 +754,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.3 2004-06-11 15:20:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.4 2004-06-14 15:06:37 ca Exp $'
 ! !