--- a/RegressionTests__BlockTest.st	Wed Aug 03 10:30:48 2011 +0200
+++ b/RegressionTests__BlockTest.st	Wed Aug 03 15:12:23 2011 +0200
@@ -3,19 +3,13 @@
 "{ NameSpace: RegressionTests }"
 
 TestCase subclass:#BlockTest
-	instanceVariableNames:''
+	instanceVariableNames:'process'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'tests-Regression'
 !
 
 
-!BlockTest class methodsFor:'others'!
-
-version_CVS
-    ^ '$Header$'
-! !
-
 !BlockTest methodsFor:'helpers - eqeq defect'!
 
 g
@@ -54,8 +48,9 @@
             self assert:(var4 = #[4]).
             sema signal.
         ].
-
-    backgroundAction forkAt:3.
+    process := backgroundAction newProcess.
+    process priority:3.
+    process resumt.
     ^ sema
 
     "Created: / 02-08-2011 / 18:56:44 / cg"
@@ -74,6 +69,19 @@
     "Created: / 02-08-2011 / 18:57:20 / cg"
 ! !
 
+!BlockTest methodsFor:'running'!
+
+tearDown
+    |p|
+
+    (p := process notil) ifTrue:[
+        process := nil.
+        p terminate. 
+    ]
+
+    "Created: / 03-08-2011 / 15:11:11 / cg"
+! !
+
 !BlockTest methodsFor:'tests - eqeq defects'!
 
 testBlockWithEQEQ_1
@@ -376,4 +384,8 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !