--- a/Context.st	Sat Mar 20 11:15:51 2004 +0100
+++ b/Context.st	Sat Mar 20 14:43:21 2004 +0100
@@ -1889,7 +1889,7 @@
                 m := nil.
                 src := ('[' , method source , '\]') withCRs.
                 "/ blocksLineNr := self lineNumber.
-                blocksLineNr := self home lineNumber.
+                blocksLineNr := (self home ? self) lineNumber.
                 extractFromBlock value.
             ]
         ].
@@ -2116,7 +2116,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.123 2004-03-17 10:16:14 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.124 2004-03-20 13:43:21 cg Exp $'
 ! !
 
 Context initialize!