diff --git a/ide/main.pp b/ide/main.pp
index 889ef11de6..658d851b4f 100644
--- a/ide/main.pp
+++ b/ide/main.pp
@@ -11340,7 +11340,9 @@ begin
   end;
 
   AlreadySearchedPaths:='';
-  BaseDir:=AppendPathDelim(TrimFilename(BaseDirectory));
+  BaseDir:=BaseDirectory;
+  GlobalMacroList.SubstituteStr(BaseDir);
+  BaseDir:=AppendPathDelim(TrimFilename(BaseDir));
 
   // search file in base directory
   Result:=TrimFilename(BaseDir+AFilename);