--- a/ClassCommentChange.st	Wed Feb 02 20:35:06 2000 +0100
+++ b/ClassCommentChange.st	Thu Feb 03 19:32:22 2000 +0100
@@ -102,7 +102,7 @@
             nextPutAll:' comment:'
 !
 
-printWithoutClassOn:aStream
+printWithoutClassNameOn:aStream
     (className endsWith:' class') ifTrue:[
         aStream nextPutAll:'class '
     ].
@@ -120,5 +120,5 @@
 !ClassCommentChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.22 2000-02-01 20:13:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.23 2000-02-03 18:32:22 cg Exp $'
 ! !