diff --git a/libguile/read.c b/libguile/read.c
index 8b0b0b2f4..6046023a8 100644
--- a/libguile/read.c
+++ b/libguile/read.c
@@ -191,12 +191,10 @@ scm_flush_ws (SCM port, const char *eoferr)
       goteof:
 	if (eoferr)
 	  {
-	    if (!SCM_FALSEP (SCM_FILENAME (port)))
-	      scm_misc_error (eoferr,
-			      "end of file in ~A",
-			      scm_list_1 (SCM_FILENAME (port)));
-	    else
-	      scm_misc_error (eoferr, "end of file", SCM_EOL);
+	    scm_input_error (eoferr,
+			     port,
+			     "end of file",
+			     SCM_EOL);
 	  }
 	return c;
       case ';':