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)