--- a/ClsDefChg.st	Wed Oct 13 03:12:49 1993 +0100
+++ b/ClsDefChg.st	Fri Feb 25 13:56:06 1994 +0100
@@ -11,15 +11,16 @@
 "
 
 ClassChange subclass:#ClassDefinitionChange
-	 instanceVariableNames:'definition'
-	 classVariableNames:''
-	 poolDictionaries:''
-	 category:'System-Changes'
+         instanceVariableNames:'definition'
+         classVariableNames:''
+         poolDictionaries:''
+         category:'System-Changes'
 !
 
 !ClassDefinitionChange methodsFor:'printing'!
 
-printString
-    ^ 'ClassDefinitionChange(' , className , ')'
+printOn:aStream
+    aStream nextPutAll:'ClassDefinitionChange(';
+            nextPutAll:className;
+            nextPutAll:')'
 ! !
-