--- a/Class.st	Fri Apr 18 20:43:18 1997 +0200
+++ b/Class.st	Fri Apr 18 21:05:22 1997 +0200
@@ -4212,6 +4212,24 @@
     "
 !
 
+rootsOfTheWorld
+    "return a collection of classes which have a nil superclass"
+
+    |set|
+
+    set := IdentitySet new.
+    Smalltalk allBehaviorsDo:[:aClass | 
+        aClass superclass isNil ifTrue:[set add:aClass]
+    ].
+    ^ set asOrderedCollection
+
+    "
+     Class rootsOfTheWorld
+    "
+
+    "Modified: 18.4.1997 / 20:55:34 / cg"
+!
+
 wasAutoloaded
     "return true, if this class came into the system via an
      autoload; false otherwise.
@@ -4921,6 +4939,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.275 1997-04-18 14:36:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.276 1997-04-18 19:05:22 cg Exp $'
 ! !
 Class initialize!