1 files changed, 1 insertions, 1 deletions

diff --git a/src/lread.c b/src/lread.c
index 4e2ed5ccd2a..882b09bf5a3 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -483,7 +483,7 @@ Return t if file exists.")
       if (!NILP (Vload_source_file_function))
         {
           close (fd);
-          return call3 (Vload_source_file_function, found, file,
+          return call4 (Vload_source_file_function, found, file,
                         NILP (noerror) ? Qnil : Qt,
                         NILP (nomessage) ? Qnil : Qt);
         }