--- a/RegressionTests__ContextTest2.st	Fri Sep 24 16:53:11 2004 +0200
+++ b/RegressionTests__ContextTest2.st	Fri Sep 24 17:04:57 2004 +0200
@@ -30,8 +30,24 @@
 !
 
 call10_3:aBlock
-    aBlock value:[ thisContext ].
-    ^ ttt sender sender
+    aBlock value:thisContext.
+    ^ thisContext sender sender
+!
+
+call11_1
+    |local|
+
+    self call11_2:[:x | local := x].
+    ^ local value.
+!
+
+call11_2:aBlock
+    ^ self call11_3:aBlock
+!
+
+call11_3:aBlock
+    aBlock value:[thisContext].
+    ^ thisContext sender sender
 !
 
 call9_1
@@ -170,10 +186,22 @@
 
     val := self call10_1.
     ObjectMemory dumpObject:val.
-    ObjectMemory dumpObject:ttt.
+    ObjectMemory dumpObject:(val varAt:1).
+    ObjectMemory dumpObject:((val varAt:1) varAt:1).
 
     "
-     self new testContextRef9
+     self new testContextRef10
+    "
+!
+
+testContextRef11
+    |val|
+
+    val := self call10_1.
+    ObjectMemory dumpObject:val.
+
+    "
+     self new testContextRef11
     "
 !