--- a/Class.st	Thu Apr 01 16:19:13 2004 +0200
+++ b/Class.st	Fri Apr 02 13:30:22 2004 +0200
@@ -2010,11 +2010,18 @@
         ^ self
     ].
 
+    coll := OrderedCollection new.
     Smalltalk allClassesDo:[:aClass |
         (aClass superclass == self) ifTrue:[
-            aBlock value:aClass
+            coll add:aClass
         ]
-    ]
+    ].
+
+    SubclassInfo notNil ifTrue:[
+        SubclassInfo at:self put:coll.
+    ].
+
+    coll do:aBlock.
 
     "
      Collection subclassesDo:[:c | Transcript showCR:(c name)]
@@ -4698,5 +4705,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.470 2004-04-01 11:53:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.471 2004-04-02 11:30:22 werner Exp $'
 ! !