X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/81054f0131824964d2cebfd7dec6f18be113020b..bfd08be5c65f696eddf48cfa48eaeab2714a3ec5:/src/module-parse.lisp?ds=sidebyside

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 @@
   (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))