diff --git a/src/ChangeLog b/src/ChangeLog
index 6fb8aaf31ff..3aa05b6bcdb 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-03-14  Richard M. Stallman  <rms@gnu.org>
+
+	* lread.c (read1): After #!, exit loop on eof.
+
 2003-03-14  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
 
 	* gtkutil.h: Add declaration for xg_frame_cleared.
diff --git a/src/lread.c b/src/lread.c
index 70f0a3f2f9b..dfbbfeaad1e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -2127,7 +2127,7 @@ read1 (readcharfun, pch, first_in_list)
 	{
 	  /* #! appears at the beginning of an executable file.
 	     Skip the first line.  */
-	  while (c != '\n')
+	  while (c != '\n' && c >= 0)
 	    c = READCHAR;
 	  goto retry;
 	}