--- a/ClassDefinitionChange.st	Thu Jul 07 14:22:57 2011 +0200
+++ b/ClassDefinitionChange.st	Thu Jul 07 14:40:50 2011 +0200
@@ -228,29 +228,31 @@
 !ClassDefinitionChange methodsFor:'applying'!
 
 apply
-
-    superClassName ifNil:[self setupFromSource].
-    superClassName ifNil:[self error: 'Should not happen'].
-    (Smalltalk hasClassNamed: superClassName) ifFalse:
-        [Class undeclared: superClassName].
-
+    superClassName isNil ifTrue:[
+        self setupFromSource
+    ].
+    superClassName isNil ifTrue:[
+        self error:'Should not happen'
+    ].
+    (Smalltalk classNamed:superClassName) isNil ifTrue:[
+        Class undeclared:superClassName
+    ].
     Parser evaluate:(self source).
-
     package notNil ifTrue:[
         self changeClass setPackage:package.
     ].
 
     "
-        (ClassDefinitionChange className: #TestB source: 'TestA subclass: #TestB
-            instanceVariableNames:''''
-            classVariableNames:''''
-            poolDictionaries:''''
-            category:''* remove me *''')
-            apply
-
+      (ClassDefinitionChange className: #TestB source: 'TestA subclass: #TestB
+          instanceVariableNames:''''
+          classVariableNames:''''
+          poolDictionaries:''''
+          category:''* remove me *''')
+          apply
     "
 
     "Modified: / 08-11-2010 / 16:10:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 07-07-2011 / 14:40:44 / cg"
 ! !
 
 !ClassDefinitionChange methodsFor:'comparing'!
@@ -506,7 +508,7 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.58 2011-07-06 11:50:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.59 2011-07-07 12:40:50 cg Exp $'
 !
 
 version_SVN