--- a/MethodCategoryChange.st	Thu Jul 19 15:33:00 2001 +0200
+++ b/MethodCategoryChange.st	Fri Jul 20 14:17:49 2001 +0200
@@ -70,6 +70,11 @@
     "Created: / 16.2.1998 / 14:14:16 / cg"
 !
 
+prettyPrintedSource
+    ^ '(' , className , ' compiledMethodAt:#' , selector , ')' , Character cr 
+          , '    category:' , methodCategory storeString
+!
+
 source
     ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , methodCategory storeString
 
@@ -98,5 +103,5 @@
 !MethodCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.13 2000-11-21 23:35:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.14 2001-07-20 12:17:40 cg Exp $'
 ! !