--- a/ResourceSelectionBrowser.st	Tue Feb 03 00:33:23 1998 +0100
+++ b/ResourceSelectionBrowser.st	Tue Feb 03 12:13:51 1998 +0100
@@ -51,10 +51,6 @@
     [author:]
         Thomas Zwick
 "
-!
-
-history
-    "Created: / 10.1.1998 / 10:59:18 / tz"
 ! !
 
 !ResourceSelectionBrowser class methodsFor:'instance creation'!
@@ -320,7 +316,7 @@
 postBuildWith:aBuilder
 
     |classSelection classSelectionBlock|
-    allClasses := Smalltalk allClasses asArray.
+    allClasses := Object withAllSubclasses.
     classSelection :=  resourceClass ? self class lastSelection ? #Object.
     classSelectionBlock := 
     [:clsPattern|