diff --git a/ld/ChangeLog b/ld/ChangeLog
index 12f639e582..b8ddd14fab 100644
--- a/ld/ChangeLog
+++ b/ld/ChangeLog
@@ -1,3 +1,7 @@
+2002-01-25  Andreas Jaeger  <aj@suse.de>
+
+	* ldlex.l (yy_input): Correct error check.
+
 2002-01-25  Alan Modra  <amodra@bigpond.net.au>
 
 	* ldmisc.c (demangle): Put back dots when string not demangled.
diff --git a/ld/ldlex.l b/ld/ldlex.l
index 9f127f96d5..0b15ca2fab 100644
--- a/ld/ldlex.l
+++ b/ld/ldlex.l
@@ -596,7 +596,7 @@ yy_input (buf, result, max_size)
       if (yyin)
 	{
 	  *result = fread ((char *) buf, 1, max_size, yyin);
-	  if (*result < 0) 
+	  if (*result < max_size && ferror (yyin)) 
 	    einfo ("%F%P: read in flex scanner failed\n");
 	}
     }