X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FSysTools.lhs;h=0cba9d2968bc324050460a30ad8bb10b3c9d35f1;hb=42b6409dceccfa302b34b14fa3578db515f64eed;hp=0908f2cc4555a2c05e62d530d65a4129f53de0f0;hpb=4e4f2add26cad9bf7adcf99e6f90a26a5205fc04;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/SysTools.lhs b/ghc/compiler/main/SysTools.lhs
index 0908f2c..0cba9d2 100644
--- a/ghc/compiler/main/SysTools.lhs
+++ b/ghc/compiler/main/SysTools.lhs
@@ -735,7 +735,7 @@ runSomething phase_name pgm args = do
         case toArgs pgm of
 	  []     -> (pgm, real_args) -- let rawSystem be the bearer of bad news..
 	  (x:xs) -> (x, xs ++ real_args)
-  traceCmd phase_name (unwords (pgm:real_args)) $ do
+  traceCmd phase_name (unwords (real_pgm : argv)) $ do
   exit_code <- rawSystem real_pgm argv
   if (exit_code /= ExitSuccess)
 	then throwDyn (PhaseFailed phase_name exit_code)