--- a/ClassDefinitionChange.st	Mon Mar 19 15:30:00 2012 +0000
+++ b/ClassDefinitionChange.st	Mon Mar 19 20:13:30 2012 +0000
@@ -365,30 +365,57 @@
     classNameUsed := self className.
 
     ^ String streamContents:[:stream |
-        stream 
-            nextPutAll:superClassNameUsed;
-            nextPutAll:' subclass:';
-            nextPutAll: classNameUsed asSymbol storeString
-            ;
-            cr;
-            spaces:4;
-            nextPutAll:'instanceVariableNames: ';
-            nextPutAll:(instanceVariableNames ? '') storeString;
-            cr;
-            spaces:4;
-            nextPutAll:'classVariableNames: ';
-            nextPutAll:(classVariableNames ? '') storeString;
-            cr;
-            spaces:4;
-            nextPutAll:'poolDictionaries: ';
-            nextPutAll:(poolDictionaries ? '') storeString;
-            cr;
-            spaces:4;
-            nextPutAll:'category: ';
-            nextPutAll:(category ? '') storeString
-      ]
+        self isPrivateClassDefinitionChange ifFalse:[
+            stream 
+                nextPutAll:superClassNameUsed;
+                nextPutAll:' subclass:';
+                nextPutAll: classNameUsed asSymbol storeString
+                ;
+                cr;
+                tab;
+                nextPutAll:'instanceVariableNames:';
+                nextPutAll:(instanceVariableNames ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'classVariableNames:';
+                nextPutAll:(classVariableNames ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'poolDictionaries:';
+                nextPutAll:(poolDictionaries ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'category:';
+                nextPutAll:(category ? '') storeString;
+                cr
+        ] ifTrue:[
+            stream 
+                nextPutAll:superClassNameUsed;
+                nextPutAll:' subclass:';
+                nextPutAll: (classNameUsed copyFrom: owningClassName size + 3) asSymbol storeString
+                ;
+                cr;
+                tab;
+                nextPutAll:'instanceVariableNames:';
+                nextPutAll:(instanceVariableNames ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'classVariableNames:';
+                nextPutAll:(classVariableNames ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'poolDictionaries:';
+                nextPutAll:(poolDictionaries ? '') storeString;
+                cr;
+                tab;
+                nextPutAll:'privateIn:';
+                nextPutAll:owningClassName;
+                cr
+        ]
+    ]
 
     "Modified: / 06-10-2011 / 17:02:05 / cg"
+    "Modified: / 19-03-2012 / 19:19:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 printOn:aStream
@@ -569,7 +596,7 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassDefinitionChange.st 1872 2012-01-30 17:19:14Z vranyj1 $'
+    ^ '$Id: ClassDefinitionChange.st 1897 2012-03-19 20:13:30Z vranyj1 $'
 !
 
 version_CVS
@@ -577,5 +604,5 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st 1872 2012-01-30 17:19:14Z vranyj1 $'
+    ^ '$Id: ClassDefinitionChange.st 1897 2012-03-19 20:13:30Z vranyj1 $'
 ! !