diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 7e4827ec47..b88523b6b9 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1793,6 +1793,7 @@ In case not, the value returned can be arbitrary.
 
     procedure tscannerfile.restoreinputfile;
       begin
+        inputbuffer:=inputfile.buf;
         inputpointer:=inputfile.saveinputpointer;
         lastlinepos:=inputfile.savelastlinepos;
         line_no:=inputfile.saveline_no;