--- a/Tools_OrganizerCanvas.st	Tue Sep 22 13:24:44 2009 +0200
+++ b/Tools_OrganizerCanvas.st	Tue Sep 22 13:25:04 2009 +0200
@@ -4628,12 +4628,14 @@
         (oldSelectedCategories includes:allEntry) ifTrue:[
             categories add:allEntry
         ].
-        (oldSelectedCategories includes:changedEntry) ifTrue:[
-            (oldSelectedCategories size == 1) ifTrue:[
-                "/ don't switch to category
-                ^ self
+        oldSelectedCategories do:[:entry | 
+            (NavigatorModel isPseudoCategory:entry) ifTrue:[
+                (oldSelectedCategories size == 1) ifTrue:[
+                    "/ don't switch to category
+                    ^ self
+                ].
+                categories add:entry
             ].
-            categories add:changedEntry
         ].
     ].
 
@@ -4901,5 +4903,5 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.37 2009-09-21 20:46:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.38 2009-09-22 11:25:04 cg Exp $'
 ! !