--- a/ResourceSelectionBrowser.st	Thu Feb 04 16:48:47 2010 +0100
+++ b/ResourceSelectionBrowser.st	Thu Feb 04 16:50:22 2010 +0100
@@ -650,14 +650,14 @@
     "/ Speed up things by caching facts while enumerating
     "/ classes once only.
 
-    |allClasses topClass childrenPerCategory privateClasses|
+    |topClass childrenPerCategory privateClasses|
 
     topClass := self treeViewClassHierarchyContents.
-    allClasses := topClass withAllSubclasses.
     privateClasses := IdentitySet new.
 
     childrenPerCategory := Dictionary new.
-    allClasses do:[:cls |
+
+    topClass withAllSubclassesDo:[:cls |
         |cat set|
 
         cls isPrivate ifFalse:[
@@ -1020,4 +1020,8 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !