diff --git a/hemlock/lispbuf.lisp b/hemlock/lispbuf.lisp
index 81e58e6adb7f2ca464b283f22d069550897b82fc..843a30bd6ef26ce80c5b76343aaeee79231cc61d 100644
--- a/hemlock/lispbuf.lisp
+++ b/hemlock/lispbuf.lisp
@@ -429,7 +429,7 @@
    (with-input-from-region (stream region)
      (with-pop-up-display (*error-output* :height 19)
        (c::compile-from-stream stream
-			       :defined-from-pathname
+			       :source-info
 			       (buffer-pathname (current-buffer)))))))