diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index 213cb0f82f42d23cf1e35a887b4fced3c825586b..7f7f203a15b7750379ddeec40bd5da89736bd51a 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -1792,7 +1792,7 @@
 		      (when (atom subform) (return))
 		      (let ((fm (car subform)))
 			(when (consp fm)
-			  (find-source-paths fm (cons pos path)))
+			  (sub-find-source-paths fm (cons pos path)))
 			(incf pos))
 		      (setq subform (cdr subform))
 		      (when (eq subform trail) (return)))))