diff --git a/src/ce_dubproject.pas b/src/ce_dubproject.pas
index 79c0cb6d..2822c3f0 100644
--- a/src/ce_dubproject.pas
+++ b/src/ce_dubproject.pas
@@ -338,7 +338,7 @@ end;
 function TCEDubProject.compile: boolean;
 var
   dubproc: TProcess;
-  olddir: string = '';
+  olddir: string;
   prjname: string;
   msgs: ICEMessagesDisplay;
 begin
@@ -347,7 +347,7 @@ begin
   msgs.clearByData(Self as ICECommonProject);
   prjname := shortenPath(fFilename);
   dubproc := TProcess.Create(nil);
-  getDir(0, olddir);
+  olddir := GetCurrentDir;
   try
     msgs.message('compiling ' + prjname, self as ICECommonProject, amcProj, amkInf);
     chDir(extractFilePath(fFilename));
diff --git a/src/ce_nativeproject.pas b/src/ce_nativeproject.pas
index 656b352e..42f6251f 100644
--- a/src/ce_nativeproject.pas
+++ b/src/ce_nativeproject.pas
@@ -703,8 +703,7 @@ begin
   //
   prjname := shortenPath(filename, 25);
   compilproc := TProcess.Create(nil);
-  olddir := '';
-  getDir(0, olddir);
+  olddir := GetCurrentDir;
   try
     msgs.message('compiling ' + prjname, self as ICECommonProject, amcProj, amkInf);
     prjpath := extractFilePath(fileName);