diff --git a/compiler/ir1util.lisp b/compiler/ir1util.lisp index 788b5f1e6648c04c6b54fdd48e93cf08815d0d6c..7e0309ccadda5b2402a1bc2713bc40039465172d 100644 --- a/compiler/ir1util.lisp +++ b/compiler/ir1util.lisp @@ -260,7 +260,7 @@ ;;; (defun node-tlf-number (node) (declare (type node node)) - (second (node-source-path node))) + (car (last (node-source-path node)))) ;;;; Flow/DFO/Component hackery: