--- a/BlockContext.st	Fri Feb 02 17:39:52 2018 +0100
+++ b/BlockContext.st	Fri Feb 02 23:22:49 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -132,13 +134,16 @@
     home isNil ifTrue:[^ nil].
     home isContext ifFalse:[^ nil]. "copying blocks have no method home"
 
-    con := self.
     h := home.
-    [h notNil] whileTrue:[
+    [
         con := h.
-        h := con home
-    ].
+        h := con home.
+        h notNil
+    ] whileTrue.
+
     ^ con
+
+    "Modified: / 02-02-2018 / 14:01:32 / stefan"
 !
 
 selector