diff --git a/compiler/finput.pas b/compiler/finput.pas
index 3a166d0832..498843bb2a 100644
--- a/compiler/finput.pas
+++ b/compiler/finput.pas
@@ -454,7 +454,7 @@ uses
         fileopen:=false;
         try
           f:=CFileStreamClass.Create(filename,fmOpenRead);
-          fileopen:=true;
+          fileopen:=CStreamError=0;
         except
         end;
       end;