diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index d69c16a315395cd6687efb4ad3fb237897ee47d7..875626c9505cd30b7fd299fc0954497743ab53f2 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -1712,6 +1712,7 @@
 (defun ir1-top-level (form tlf-num for-value)
   (declare (type index tlf-num))
   (let* ((*current-path* (or (gethash form *source-paths*)
+			     *current-path*
 			     (list 0 tlf-num)))
 	 (*inlines* ())
 	 (*type-restrictions* ())