--- a/ClassDefinitionChange.st	Thu Mar 01 18:03:24 2007 +0100
+++ b/ClassDefinitionChange.st	Mon Mar 05 11:26:12 2007 +0100
@@ -181,11 +181,15 @@
 superClassNameWithoutMyNamespace
     |nm|
 
+    superClassName isNil ifTrue:[^ 'nil'].
+
     nm := self cutMyNameSpaceOf:superClassName.
     (nm includes:$.) ifTrue:[
         ^ nm copyReplaceAll:$. withAll:'::'.
     ].
     ^ nm
+
+    "Modified: / 03-03-2007 / 13:09:07 / cg"
 !
 
 superClassNameWithoutNamespace
@@ -424,5 +428,5 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.46 2006-11-27 14:43:44 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.47 2007-03-05 10:26:12 cg Exp $'
 ! !