--- a/Block.st	Fri Mar 31 13:13:22 2017 +0200
+++ b/Block.st	Fri Mar 31 17:27:41 2017 +0200
@@ -3191,13 +3191,15 @@
     |m|
 
     sourcePos isString ifTrue:[    "/ misuses the sourcePosition slot
-	^ sourcePos
+        ^ sourcePos
     ].
-    m := self method.
+    m := self homeMethod.
     m notNil ifTrue:[
-	^ m source
+        ^ m source
     ].
     ^ nil
+
+    "Modified: / 31-03-2017 / 17:26:52 / stefan"
 !
 
 source:aString