--- a/Tools_ClassCategoryList.st	Fri Jun 21 00:34:45 2013 +0200
+++ b/Tools_ClassCategoryList.st	Fri Jun 21 00:35:19 2013 +0200
@@ -428,7 +428,7 @@
         ].
     ].
     changedObject == categoryList ifTrue:[
-        self halt.
+        self breakPoint:#cg.
     ].
     super delayedUpdate:something with:aParameter from:changedObject
 
@@ -746,7 +746,7 @@
         "/ really exist; however, during browsing, it makes sense.
         AdditionalEmptyCategories size > 0 ifTrue:[
             "/ remove those that are present ...
-            AdditionalEmptyCategories := AdditionalEmptyCategories select:[:cat | (categories includes:cat) not].
+            AdditionalEmptyCategories := AdditionalEmptyCategories reject:[:cat | (categories includes:cat)].
             categories addAll:AdditionalEmptyCategories.
             categoriesBag addAll:AdditionalEmptyCategories withOccurrences:0.
         ].
@@ -1003,10 +1003,10 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.48 2013-06-20 22:35:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.46 2013-04-25 13:12:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.48 2013-06-20 22:35:19 cg Exp $'
 ! !