X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/81054f0131824964d2cebfd7dec6f18be113020b..1dd7dba9fd7f420f82fe6dec068f8925c87debd3:/src/module-parse.lisp

diff --git a/src/module-parse.lisp b/src/module-parse.lisp
index 81a3956..df058be 100644
--- a/src/module-parse.lisp
+++ b/src/module-parse.lisp
@@ -141,7 +141,7 @@ (define-pluggable-parser module file (scanner pset)
   (declare (ignore pset))
   (flet ((common (name type what thunk)
 	   (when name
-	     (find-file scanner
+	     (find-file (pathname (scanner-filename scanner))
 			(merge-pathnames name
 					 (make-pathname :type type
 							:case :common))