--- a/MethodChange.st	Mon Oct 09 14:08:43 2006 +0200
+++ b/MethodChange.st	Mon Oct 09 14:08:54 2006 +0200
@@ -266,6 +266,12 @@
         aStream nextPutAll:'class '
     ].
     aStream nextPutAll:selector 
+!
+
+sourceForMethod
+    ^ '(' , className , ' compiledMethodAt:#' , selector storeString, ')'
+
+    "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
 !MethodChange methodsFor:'queries'!
@@ -301,5 +307,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.43 2006-10-04 15:29:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.44 2006-10-09 12:08:54 cg Exp $'
 ! !