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: