diff --git a/rtl/unix/crt.pp b/rtl/unix/crt.pp
index 6e3db27913..33ff168842 100644
--- a/rtl/unix/crt.pp
+++ b/rtl/unix/crt.pp
@@ -1325,7 +1325,6 @@ Begin
         end;
       until (c in [#10,#13]) or (i >= F.BufSize);
       F.BufEnd := i;
-      CrtRead := 0;
       exit;
     end;
   F.BufEnd:=fpRead(F.Handle, F.BufPtr^, F.BufSize);