--- a/OSProcess.st	Tue Oct 30 11:57:25 2018 +0100
+++ b/OSProcess.st	Wed Oct 31 12:33:32 2018 +0100
@@ -772,10 +772,16 @@
     |ok procs streams|
 
     [
-        ok := self startProcess.
-        ok ifTrue:[
-            self waitUntilFinished.
-            ok := self finishedWithSuccess.
+        [
+            ok := self startProcess.
+            ok ifTrue:[
+                self waitUntilFinished.
+                ok := self finishedWithSuccess.
+            ].
+        ] ifCurtailed:[
+            pid notNil ifTrue:[
+                self terminateGroup.
+            ].
         ].
     ] ensure:[
         "/ we were interrupted -
@@ -790,14 +796,11 @@
             shufflerProcesses := nil.
             procs do:[:eachProc | eachProc terminate].
         ].
-        pid notNil ifTrue:[
-            self terminateGroup.
-        ].
     ].
     ^ ok.
 
-    "Modified (comment): / 23-02-2017 / 10:54:34 / Maren"
     "Modified: / 29-10-2018 / 15:59:33 / Claus Gittinger"
+    "Modified: / 31-10-2018 / 12:31:42 / Maren"
 !
 
 startProcess