--- a/RegressionTests__ContextTest2.st	Sat Mar 31 17:38:55 2001 +0200
+++ b/RegressionTests__ContextTest2.st	Mon Apr 02 11:10:56 2001 +0200
@@ -47,7 +47,7 @@
     p := [:arg |
         [
             lockSet critical:[set add:arg].
-            arg perform:#x: with:1234.
+            arg perform:#x.
         ] valueNowOrOnUnwindDo:[
             lockSet critical:[set remove:arg].
         ].
@@ -56,6 +56,28 @@
     "
      self new testProcess2
     "
+!
+
+testProcess3
+    |x set lockSet p|
+
+    lockSet := Semaphore forMutualExclusion.
+    set := Set new.
+
+    x := 1 @ 1.
+
+    p := [:arg |
+        [
+            lockSet critical:[set add:arg].
+            arg perform:#x: with:1234.
+        ] valueNowOrOnUnwindDo:[
+            lockSet critical:[set remove:arg].
+        ].
+    ] forkWith:(Array with:x).
+
+    "
+     self new testProcess3
+    "
 ! !
 
 !ContextTest2 class methodsFor:'documentation'!