--- a/RegressionTests__ContextTest2.st	Fri Sep 24 16:41:40 2004 +0200
+++ b/RegressionTests__ContextTest2.st	Fri Sep 24 16:53:11 2004 +0200
@@ -3,7 +3,7 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#ContextTest2
-	instanceVariableNames:'exceptionObject'
+	instanceVariableNames:'exceptionObject ttt'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'tests-Regression'
@@ -19,17 +19,30 @@
 
 !ContextTest2 methodsFor:'helpers'!
 
-call1
-    ^ self call2
+call10_1
+    |local|
+
+    ^ self call10_2:[:x | local := x].
+!
+
+call10_2:aBlock
+    ^ self call10_3:aBlock
 !
 
-call2
-    ^ self call3
+call10_3:aBlock
+    aBlock value:[ thisContext ].
+    ^ ttt sender sender
 !
 
-call3
-    |ttt|
+call9_1
+    ^ self call9_2
+!
 
+call9_2
+    ^ self call9_3
+!
+
+call9_3
     ttt := thisContext.
     ^ ttt sender sender
 !
@@ -152,6 +165,18 @@
     "
 !
 
+testContextRef10
+    |val|
+
+    val := self call10_1.
+    ObjectMemory dumpObject:val.
+    ObjectMemory dumpObject:ttt.
+
+    "
+     self new testContextRef9
+    "
+!
+
 testContextRef2
 
     self getAssocWithContext.
@@ -232,7 +257,9 @@
 testContextRef9
     |val|
 
-    val := self call1.
+    val := self call9_1.
+    ObjectMemory dumpObject:val.
+    ObjectMemory dumpObject:ttt.
 
     "
      self new testContextRef9