diff --git a/Utility/CoProcess.hs b/Utility/CoProcess.hs
index ec24c4dcc0..700ef6eb19 100644
--- a/Utility/CoProcess.hs
+++ b/Utility/CoProcess.hs
@@ -43,7 +43,7 @@ start restartable cmd params env = do
 
 start' :: CoProcessSpec -> IO CoProcessState
 start' s = do
-	(pid, to, from) <- startInteractiveProcess (coProcessCmd s) (coProcessParams s) (coProcessEnv s)
+	(pid, from, to) <- startInteractiveProcess (coProcessCmd s) (coProcessParams s) (coProcessEnv s)
 	return $ CoProcessState pid to from s
 
 stop :: CoProcessHandle -> IO ()