--- a/MethodChange.st	Mon Jul 05 23:53:15 1999 +0200
+++ b/MethodChange.st	Mon Jul 05 23:53:40 1999 +0200
@@ -96,6 +96,13 @@
     aStream nextPutAll:className; 
 		 space; 
 	    nextPutAll:selector 
+!
+
+printWithoutClassOn:aStream
+    (className endsWith:' class') ifTrue:[
+        aStream nextPutAll:'class '
+    ].
+    aStream nextPutAll:selector 
 ! !
 
 !MethodChange methodsFor:'queries'!
@@ -109,5 +116,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.16 1998-02-16 13:59:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.17 1999-07-05 21:53:40 cg Exp $'
 ! !