# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1575565122 -3600
# Node ID 26915eb67235811e990569a7f4c6f0fce156b5f5
# Parent  f82e303cd35dcb3ee420245ad6474d1447cc537a
#REFACTORING by stefan
class: OSProcess
changed: #startProcess

diff -r f82e303cd35d -r 26915eb67235 OSProcess.st
--- a/OSProcess.st	Thu Dec 05 15:11:46 2019 +0100
+++ b/OSProcess.st	Thu Dec 05 17:58:42 2019 +0100
@@ -1064,9 +1064,9 @@
 
     callingProcess := Processor activeProcess.
     
-    Processor 
+    pid := Processor 
         monitor:[
-            pid := OperatingSystem
+            OperatingSystem
                         startProcess:(self startCommand)
                         inputFrom:externalInStream
                         outputTo:externalOutStream
@@ -1122,12 +1122,7 @@
     externalInStream := externalAuxInStream := externalAuxOutStream := externalOutStream := externalErrorStream := nil.
     
     pid isNil ifTrue:[
-        UserPreferences current logExecutedOSCommands ifTrue:[
-            Transcript 
-                showCR:(('OS command failed: %1'bindWith: self startCommand) allRed).  
-        ].
-
-        "process could not be started - terminate shufflers"
+        "process could not be started!!"
         self terminateShufflerProcesses.
 
         exitStatus := OperatingSystem osProcessStatusClass processCreationFailure.
@@ -1135,6 +1130,11 @@
         terminateActionBlock notNil ifTrue:[
             terminateActionBlock valueWithOptionalArgument:exitStatus and:self.
         ].
+        UserPreferences current logExecutedOSCommands ifTrue:[
+            Transcript 
+                showCR:(('OS command failed: %1'bindWith: self startCommand) allRed).  
+        ].
+
         ^ false.
     ].