--- a/BlockContext.st	Wed Jul 18 19:33:44 2012 +0200
+++ b/BlockContext.st	Thu Jul 19 11:03:36 2012 +0200
@@ -123,7 +123,9 @@
     "return the method in which the current contexts block was created."
 
     home notNil ifTrue:[^ home method].
-    ^ nil
+    ^ super method
+
+    "Modified: / 19-07-2012 / 10:58:55 / cg"
 !
 
 methodHome
@@ -188,10 +190,11 @@
          in the args or temporaries, that must be the one.
          This helps in some cases.
         "
+        m := self method.
         m isNil ifTrue:[
             ^ '[] (optimized) in ???'.
         ].
-        ^ '[] (optimized) in ' , m mclass name , ' >> ' , m selector.
+        ^ '[] in ' , m mclass name , ' >> ' , m selector.
     ].
 
     mHome := self methodHome.
@@ -234,11 +237,11 @@
     ].
     ^ '[] in ' , className , ' >> ' , sel
 
-    "Modified: 10.1.1997 / 21:26:21 / cg"
+    "Modified: / 19-07-2012 / 11:02:41 / cg"
 ! !
 
 !BlockContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.33 2008-11-05 14:22:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/BlockContext.st,v 1.34 2012-07-19 09:03:36 cg Exp $'
 ! !