--- a/MethodCategoryChange.st	Mon Oct 09 14:08:54 2006 +0200
+++ b/MethodCategoryChange.st	Mon Oct 09 14:08:58 2006 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic3' }"
 
 MethodChange subclass:#MethodCategoryChange
@@ -71,13 +70,16 @@
 !
 
 prettyPrintedSource
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ')' , Character cr 
+    ^ self sourceForMethod, Character cr 
           , '    category:' , methodCategory storeString
+
+    "Modified: / 09-10-2006 / 13:59:15 / cg"
 !
 
 source
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , methodCategory storeString
+    ^ self sourceForMethod , ' category:' , methodCategory storeString
 
+    "Modified: / 09-10-2006 / 13:59:10 / cg"
 ! !
 
 !MethodCategoryChange methodsFor:'applying'!
@@ -103,5 +105,5 @@
 !MethodCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.14 2001-07-20 12:17:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.15 2006-10-09 12:08:58 cg Exp $'
 ! !