--- a/Smalltalk.st	Tue May 06 19:05:07 2008 +0200
+++ b/Smalltalk.st	Tue May 06 19:43:20 2008 +0200
@@ -3798,6 +3798,11 @@
             ]
         ]
     ] ifFalse:[
+        cls superclass isNil ifTrue:[
+            ('Smalltalk [warning]: ' , clsName , ' has nil superclass - changed to Autoload.') infoPrintCR.
+            cls setSuperclass:Autoload.
+        ].
+
         "/ class already present - however, if unloaded, check for category/package change
         cls isLoaded ifFalse:[
             package ~= cls package ifTrue:[
@@ -7051,5 +7056,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.840 2008-05-05 11:38:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.841 2008-05-06 17:43:20 cg Exp $'
 ! !