--- a/RegressionTests__ProcessTest.st	Mon Sep 30 09:58:43 2002 +0200
+++ b/RegressionTests__ProcessTest.st	Mon Sep 30 17:08:02 2002 +0200
@@ -33,10 +33,11 @@
             subProcesses add:subTask.
             subTask resume.
         ].
-        Delay waitForSeconds:10.
+        [true] whileTrue:[Delay waitForSeconds:10].
     ].
 
     masterTask := block newProcess.
+    masterTask beGroupLeader.
     masterTask priority:8.
     masterTask name:'masterTask'.
     masterTask resume.
@@ -45,13 +46,16 @@
 
     masterTask terminateWithAllSubprocesses.
     masterTask waitUntilTerminated.          
-    allProcesses := ProcessorScheduler knownProcesses asOrderedCollection.
+
+    Delay waitForSeconds:1.
+    allProcesses := ProcessorScheduler knownProcesses asOrderedCollection select:[:p | p isDead not].
     subProcesses do:[:aProcess|
         self should:((allProcesses includes:aProcess) not).
     ].
-"
-    self new test
-"
+
+    "
+     self new testTerminateWithAllSubProcesses
+    "
 ! !
 
 !ProcessTest class methodsFor:'documentation'!