diff --git a/compiler/scandir.pas b/compiler/scandir.pas
index 8728ac4f10..811e8edd74 100644
--- a/compiler/scandir.pas
+++ b/compiler/scandir.pas
@@ -1495,7 +1495,8 @@ unit scandir;
           begin
             current_scanner.skipspace;
             unitpath:=current_scanner.readcomment;
-            if current_module.path<>'' then
+            if (current_module.path<>'') and
+               not path_absolute(unitpath) then
              unitpath:=current_module.path+source_info.DirSep+unitpath;
             current_module.localunitsearchpath.AddPath(unitpath,false);
           end;