--- a/Smalltalk.st	Wed Aug 18 17:17:36 1999 +0200
+++ b/Smalltalk.st	Wed Aug 18 17:55:14 1999 +0200
@@ -1414,14 +1414,16 @@
     "/ If that happens, we restart the set-building here
     "/
     [(classes := CachedClasses) isNil] whileTrue:[
-	CachedClasses := classes := IdentitySet new:800. 
-	self do:[:anObject |
-	    anObject notNil ifTrue:[
-		anObject isBehavior ifTrue:[
-		    classes add:anObject
-		]
-	    ]
-	]
+        CachedClasses := classes := IdentitySet new:800. 
+        self keysAndValuesDo:[:sym :anObject |
+            anObject notNil ifTrue:[
+                anObject isBehavior ifTrue:[
+                    anObject name == sym ifTrue:[
+                        classes add:anObject
+                    ]
+                ]
+            ]
+        ]
     ].
     ^ classes
 
@@ -4474,5 +4476,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.335 1999-08-17 13:50:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.336 1999-08-18 15:55:14 cg Exp $'
 ! !