diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index ad92f62147..29cccaf033 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -521,7 +521,7 @@ begin
       Inc(I);
       end;
     // search in BaseDirectory
-    if BaseDirectory<>'' then
+    if (Result=Nil) and (BaseDirectory<>'') then
       begin
       FN:=SearchLowUpCase(BaseDirectory+AName);
 	  try