diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp
index b86ca541d31a024bdc8e2631263bef986b8c4e84..e1cd0eff6169401b9776df70284bd72e9d926fb0 100644
--- a/compiler/ir1util.lisp
+++ b/compiler/ir1util.lisp
@@ -1077,7 +1077,7 @@
 (defun find-original-source (path)
   (declare (list path))
   (assert path)
-  (let* ((rpath (reverse path))
+  (let* ((rpath (reverse (rest path)))
 	 (root (find-source-root (first rpath) *source-info*)))
     (collect ((context))
       (let ((form root)