--- gp-0.54/gp.pas	Wed May 19 18:58:25 2004
+++ gp.pas	Wed May 19 18:59:54 2004
@@ -1422,8 +1424,8 @@
       if ObjectName = '' then Error ('internal error: missing object file name');
       GPIDestinationPath := DirFromPath (Dep.ObjectName);
       CreateDir (GPIDestinationPath);
-      Insert ('--gpi-destination-path=', GPIDestinationPath, 1);
       GPIDestinationPathAsUnitPath := '--unit-path=' + GPIDestinationPath;
+      Insert ('--gpi-destination-path=', GPIDestinationPath, 1);
       ImplementationOnly := not InterfaceOnly and (Dep.DepsProcessed = dp_Interface);
       ProgressMessage ('Compiling ' + InterfaceOf[Ord (InterfaceOnly) + 2 * Ord (ImplementationOnly)]
                        + Dep.SrcBaseNameExt + ' (' + Integer2String (Dep.Lines) + ')');