--- a/Block.st	Mon Dec 11 22:00:04 2000 +0100
+++ b/Block.st	Wed Dec 13 14:15:00 2000 +0100
@@ -362,6 +362,7 @@
     "Modified: 23.4.1996 / 15:55:58 / cg"
 ! !
 
+
 !Block methodsFor:'Compatibility - ANSI'!
 
 ensure:aBlock
@@ -1493,6 +1494,10 @@
     "Modified: 23.4.1996 / 16:05:52 / cg"
 !
 
+setHome:aContext
+    home := aContext
+!
+
 sourcePosition:position 
     "set the position of the source within my method.
      This interface is for the compiler only."
@@ -1756,6 +1761,6 @@
 !Block class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.97 2000-10-13 14:14:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Block.st,v 1.98 2000-12-13 13:15:00 cg Exp $'
 ! !
 Block initialize!