--- a/ClassDescription.st	Mon Jan 29 14:55:40 2001 +0100
+++ b/ClassDescription.st	Mon Jan 29 20:28:51 2001 +0100
@@ -587,7 +587,11 @@
 
         newClass := self superclass
             perform:sel withArguments:args.
-        newClass recompile.
+        newClass isNil ifTrue:[
+            self error:'oops - cannot compile newClass'.
+        ] ifFalse:[
+            newClass recompile.
+        ]
     ].
 
     ^ newClass
@@ -3793,6 +3797,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.118 2000-12-18 12:13:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.119 2001-01-29 19:28:51 cg Exp $'
 ! !
 ClassDescription initialize!