diff --git a/components/codetools/directorycacher.pas b/components/codetools/directorycacher.pas
index d7571ae71f..d425f5384c 100644
--- a/components/codetools/directorycacher.pas
+++ b/components/codetools/directorycacher.pas
@@ -1277,6 +1277,11 @@ begin
       if Directory='' then begin
         // virtual directory => search virtual unit
         Result:=Pool.FindVirtualUnit(AUnitName);
+      end else begin
+        // search in current directory
+        Result:=FindUnitSource(AUnitName,AnyCase);
+        if Result<>'' then
+          Result:=Directory+Result;
       end;
       if Result='' then begin
         // search in search path