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