--- a/MethodChange.st	Thu Jul 26 01:17:17 2012 +0200
+++ b/MethodChange.st	Thu Jul 26 01:22:03 2012 +0200
@@ -156,14 +156,18 @@
 !
 
 imageSource
+    "return the source for the in-image version of the method"
 
     | mth |
 
-    self isMethodCodeChange ifFalse:[^super imageSource].
+    self isMethodCodeChange ifFalse:[^ super imageSource].
     mth := self changeMethod.
-    ^mth isNil ifTrue: [nil] ifFalse:[mth source]
+    ^ mth isNil 
+        ifTrue: [nil] 
+        ifFalse:[mth source]
 
     "Created: / 19-07-2011 / 12:02:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 25-07-2012 / 17:37:52 / cg"
 !
 
 methodCategory
@@ -387,6 +391,7 @@
     "Created: / 09-10-2006 / 13:58:09 / cg"
 ! !
 
+
 !MethodChange methodsFor:'testing'!
 
 isMethodChange
@@ -441,7 +446,7 @@
 !MethodChange class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.64 2011-11-27 12:29:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.65 2012-07-25 23:22:03 cg Exp $'
 !
 
 version_SVN