diff --git a/packages/fcl-passrc/src/pscanner.pp b/packages/fcl-passrc/src/pscanner.pp index 38eec9e7be..7d81509d76 100644 --- a/packages/fcl-passrc/src/pscanner.pp +++ b/packages/fcl-passrc/src/pscanner.pp @@ -3323,6 +3323,7 @@ procedure TPascalScanner.HandleIncludeFile(Param: String); var NewSourceFile: TLineReader; begin + Param:=Trim(Param); if Length(Param)>1 then begin if (Param[1]='''') then