X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/a8bc78318db49efeb25d4a042fafde7c0ca1c0a5..e783e65bc434b69ad73684c035aac345878ba6e9:/src/module-parse.lisp?ds=inline

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 211f2c7..f90f360 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -103,7 +103,8 @@   (define-module (pathname :location location :truename truename)
       (let* ((*readtable* (copy-readtable))
 	     (*package* (find-package '#:sod-user))
 	     (char-scanner (make-instance 'charbuf-scanner
-					  :stream f-stream))
+					  :stream f-stream
+					  :filename (namestring pathname)))
 	     (scanner (make-instance 'sod-token-scanner
 				     :char-scanner char-scanner)))
 	(with-default-error-location (scanner)