--- a/Tools__NewSystemBrowser.st	Tue Oct 23 20:46:22 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Tue Oct 23 21:01:25 2012 +0200
@@ -22909,24 +22909,25 @@
 !
 
 updateCategorySelectionForChangedClassSelection
-    |classes oldSelectedCategories newSelectedCategories nameListEntryForALL|
+    |classes oldSelectedCategories selectedPseudoEntries newSelectedCategories|
 
     classes := self selectedClassesValue.
     classes size > 0 ifTrue:[
-        nameListEntryForALL := BrowserList nameListEntryForALL.
-
         "/ category-selection feedBack:
         "/ update the category-selection, if '* all *' is in its selection
         "/ (add the selected categories to the category-selection)
         oldSelectedCategories := self selectedCategoriesValue.
+        selectedPseudoEntries := (oldSelectedCategories select:[:entry | BrowserList isPseudoCategory:entry]).
 
         newSelectedCategories := Set new.
-        newSelectedCategories addAll:(classes collect:[:eachClass | eachClass category]).
-
-        (oldSelectedCategories includes:nameListEntryForALL)
-        ifTrue:[
-            newSelectedCategories add:nameListEntryForALL.
-        ].
+        (selectedPseudoEntries asSet = (Set with:(BrowserList nameListEntryForChanged)))
+        ifFalse:[
+            newSelectedCategories addAll:(classes collect:[:eachClass | eachClass category]).
+        ].
+
+        "/ reselect any selected pseudoCategory
+        newSelectedCategories addAll:selectedPseudoEntries.
+
         newSelectedCategories ~= oldSelectedCategories ifTrue:[
             self selectedCategories value:newSelectedCategories.
         ].
@@ -36627,7 +36628,7 @@
                             withDebug ifTrue:[
                                 result := TestResultForRunWithDebug new.
                             ] ifFalse:[
-                                result := TestResult new.
+                                result := TestResult defaultResultClass new.
                             ].
                             suite 
                                 run:result
@@ -57673,11 +57674,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1799 2012-10-23 18:46:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1800 2012-10-23 19:01:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1799 2012-10-23 18:46:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1800 2012-10-23 19:01:25 cg Exp $'
 !
 
 version_SVN