diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index bd75e33ff4518b1a6a29de2f3c1c7d2d6ddc2c3f..375eb005bbec7bc873fc94484571bd393c6fe6d8 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -71,11 +71,12 @@
 	   (*compiler-note-count* 0)
 	   (*source-info* (make-lisp-source-info form)))
       (clear-stuff)
+      (find-source-paths form 0)
       ;;
       ;; This LET comes from COMPILE-TOP-LEVEL.
       ;; The noted DOLIST is a splice from a call that COMPILE-TOP-LEVEL makes.
       (let* ((*converting-for-interpreter* t)
-	     (lambdas (list (ir1-top-level form '(0) t))))
+	     (lambdas (list (ir1-top-level form 0 t))))
 	(declare (list lambdas))
 	(dolist (lambda lambdas)
 	  (let* ((component