diff --git a/scheme/read.sld b/scheme/read.sld
index a4e89783..51611571 100644
--- a/scheme/read.sld
+++ b/scheme/read.sld
@@ -39,7 +39,7 @@
             (call-with-port
               (open-input-file filename)
               (lambda (port)
-                (read-all port))))
+                (read-all/source port filename))))
           (cdr expr)))))))
 
 (define-syntax include-ci