OSProcess.st
changeset 21185 b2ecc061106c
parent 21184 190ae0ab71c2
child 21200 6de129aead00
child 21247 9ee1206fc247
--- a/OSProcess.st	Sat Dec 24 00:22:02 2016 +0100
+++ b/OSProcess.st	Sat Dec 24 01:45:45 2016 +0100
@@ -415,12 +415,16 @@
     |ok|
 
     [
-        self startProcess.
-        ok := self waitUntilFinished.
+        ok := self startProcess.
+        ok ifTrue:[
+            ok := self waitUntilFinished.
+        ].
     ] ifCurtailed:[
         "/ we were interrupted -
         "/ terminate the os-command (and all of its forked commands)
-        self terminateGroup.
+        pid notNil ifTrue:[
+            self terminateGroup.
+        ].
     ].
     ^ ok.
 !