--- a/Context.st	Tue Nov 11 14:16:57 2003 +0100
+++ b/Context.st	Tue Nov 11 19:47:20 2003 +0100
@@ -1889,6 +1889,7 @@
                 m := nil.
                 src := ('[' , method source , '\]') withCRs.
                 blocksLineNr := self lineNumber.
+                blocksLineNr := self home lineNumber.
                 extractFromBlock value.
             ]
         ].
@@ -1910,6 +1911,7 @@
             src := nil.
         ].
         blocksLineNr := self lineNumber.
+        blocksLineNr := self home lineNumber.
         extractFromBlock value.
     ].
 
@@ -1922,7 +1924,7 @@
                 block := self sender receiver.
                 src := block source.
                 src isNil ifTrue:[
-self halt.
+self halt:'no source'.
                 ].
                 blocksLineNr := 1.
                 extractFromBlock value.
@@ -2111,7 +2113,7 @@
 !Context class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.120 2003-10-09 20:57:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Context.st,v 1.121 2003-11-11 18:47:20 cg Exp $'
 ! !
 
 Context initialize!