diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp
index 363f1a01b2..3947faeb4a 100644
--- a/packages/fcl-passrc/src/pscanner.pp
+++ b/packages/fcl-passrc/src/pscanner.pp
@@ -486,6 +486,7 @@ type
     FIncludePaths: TStringList;
     FStrictFileCase : Boolean;
   Protected
+    Function FindIncludeFileName(const AName: string): String; virtual;
     procedure SetBaseDirectory(AValue: string); virtual;
     procedure SetStrictFileCase(AValue: Boolean); virtual;
     Property IncludePaths: TStringList Read FIncludePaths;
@@ -2386,6 +2387,11 @@ end;
   TBaseFileResolver
   ---------------------------------------------------------------------}
 
+function TBaseFileResolver.FindIncludeFileName(const AName: string): String;
+begin
+  Result:=aName;
+end;
+
 procedure TBaseFileResolver.SetBaseDirectory(AValue: string);
 begin
   if FBaseDirectory=AValue then Exit;