diff --git a/Common.hs b/Common.hs
index aa0ec2b1ca01de9990770cb948a8a2d5d3af7286..1906c31b13e4427802b7c2815d5ca41b488e3696 100644
--- a/Common.hs
+++ b/Common.hs
@@ -45,7 +45,6 @@ rawSystemWithStdOutL outDir action flg prog args outFile = withResponseFile outD
   let cmdLine = prog++" "++unwords args++" >"++outFile
   when flg (hPutStrLn stderr ("Executing: " ++ cmdLine))
   hOut <- openFile outFile WriteMode
-  process <- runProcess prog  Nothing Nothing Nothing (Just hOut) Nothing
   (_ ,_ ,_ , process) <-
     -- We use createProcess here instead of runProcess since we need to specify
     -- a custom CreateProcess structure to turn on use_process_jobs when