--- a/Tools_OrganizerCanvas.st	Wed Sep 04 23:50:52 2013 +0200
+++ b/Tools_OrganizerCanvas.st	Thu Sep 05 12:46:11 2013 +0200
@@ -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)
             ].
         ].
     ].
@@ -5044,10 +5044,10 @@
 !OrganizerCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.54 2013-04-26 09:48:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.55 2013-09-05 10:46:11 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.54 2013-04-26 09:48:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_OrganizerCanvas.st,v 1.55 2013-09-05 10:46:11 vrany Exp $'
 ! !