--- a/DoItChange.st	Fri Jun 11 19:18:41 2004 +0200
+++ b/DoItChange.st	Mon Jul 19 13:58:02 2004 +0200
@@ -67,7 +67,7 @@
 
 !DoItChange methodsFor:'printing & storing'!
 
-printIn:aStream
+printOn:aStream
     aStream nextPutAll:'DoIt: '.
     aStream nextPutAll:source.
 ! !
@@ -91,5 +91,5 @@
 !DoItChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.9 2003-06-18 15:43:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/DoItChange.st,v 1.10 2004-07-19 11:58:02 cg Exp $'
 ! !

--- a/MethodChange.st	Fri Jun 11 19:18:41 2004 +0200
+++ b/MethodChange.st	Mon Jul 19 13:58:02 2004 +0200
@@ -219,7 +219,10 @@
     aStream 
         nextPutAll:self className; 
         space; 
-        nextPutAll:selector 
+        nextPutAll:selector; 
+        nextPutAll:' {'; 
+        nextPutAll:methodCategory; 
+        nextPutAll:'}' 
 !
 
 printWithoutClassNameOn:aStream
@@ -270,5 +273,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.36 2003-09-12 20:56:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.37 2004-07-19 11:57:54 cg Exp $'
 ! !