diff --git a/ide/compiler.pp b/ide/compiler.pp
index cc1c7b16c3..1357aa8651 100644
--- a/ide/compiler.pp
+++ b/ide/compiler.pp
@@ -287,7 +287,7 @@ begin
   try
     if TheProcess=nil then
       FTheProcess := TOutputFilterProcess.Create(nil);
-    TheProcess.CommandLine := CmdLine;
+    TheProcess.CommandLine := CompilerFilename+CmdLine;
     TheProcess.Options:= [poUsePipes, poStdErrToOutput];
     TheProcess.ShowWindow := swoHide;
     Result:=mrOk;