--- a/ClassDefinitionChange.st	Wed Mar 21 01:53:44 2012 +0000
+++ b/ClassDefinitionChange.st	Wed Mar 21 11:30:46 2012 +0000
@@ -444,7 +444,7 @@
     ^ String streamContents:[:stream |
         self isPrivateClassDefinitionChange ifFalse:[
             stream 
-                nextPutAll:superClassNameUsed;
+                nextPutAll:superClassNameUsed ? 'nil';
                 nextPutAll:' subclass:';
                 nextPutAll: classNameUsed asSymbol storeString
                 ;
@@ -763,7 +763,7 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassDefinitionChange.st 1900 2012-03-21 01:53:44Z vranyj1 $'
+    ^ '$Id: ClassDefinitionChange.st 1902 2012-03-21 11:30:46Z vranyj1 $'
 !
 
 version_CVS
@@ -771,5 +771,5 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st 1900 2012-03-21 01:53:44Z vranyj1 $'
+    ^ '$Id: ClassDefinitionChange.st 1902 2012-03-21 11:30:46Z vranyj1 $'
 ! !