--- a/Tools_OrganizerCanvas.st	Mon Sep 02 19:56:33 2013 +0200
+++ b/Tools_OrganizerCanvas.st	Tue Sep 03 16:14:28 2013 +0100
@@ -4806,7 +4806,7 @@
         categories := self selectedCategories value.
         categories notEmptyOrNil ifTrue:[
             includesAll := categories includes:BrowserList nameListEntryForALL.
-            classes :=  Smalltalk allClassesForWhich:[:aClass |
+            classes :=  environment allClassesForWhich:[:aClass |
                 (includesAll or:[categories includes:aClass category]).
             ].
         ].
@@ -4943,7 +4943,7 @@
         categories := self selectedCategories value.
         categories notEmptyOrNil ifTrue:[
             categories do:[:eachCategory |
-                classes addAll:(Smalltalk allClassesInCategory:eachCategory)
+                classes addAll:(environment allClassesInCategory:eachCategory)
             ].
         ].
     ].