diff --git a/ide/frames/compiler_path_options.pas b/ide/frames/compiler_path_options.pas
index 878adcdf8c..79cf13bdf8 100644
--- a/ide/frames/compiler_path_options.pas
+++ b/ide/frames/compiler_path_options.pas
@@ -5,7 +5,7 @@ unit compiler_path_options;
 interface
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
+  Classes, SysUtils, LCLProc, FileUtil, Forms, Controls, Graphics, Dialogs,
   Buttons, StdCtrls, LCLType, InterfaceBase, IDEOptionsIntf, Project,
   CompilerOptions, LazarusIDEStrConsts, PathEditorDlg, LazConf, IDEProcs,
   CheckCompilerOpts, MacroIntf, ShowCompilerOpts, MainIntf,
diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp
index 5a0bc629bb..db97569470 100644
--- a/ide/ideprocs.pp
+++ b/ide/ideprocs.pp
@@ -1347,7 +1347,10 @@ begin
       CurPath:=AppendPathDelim(TrimFilename(CurPath));
       if Result<>'' then
         CurPath:=';'+CurPath;
-      Result:=Result+CurPath;
+      if CurPath<>'' then
+        Result:=Result+CurPath
+      else
+        Result:=Result+'.';
     end;
   end;
 end;