X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1report.lisp;h=5dcac3059415fe4af4364fa912f6bc7ae865a32c;hb=85c1cf858999279da6f4f470c4f3c582ad9f2dbf;hp=6f18bd4479c453fd80eb7ec6b49ae76ec093d024;hpb=d814ff09969434c1d5225786da1c01d7a959cba0;p=sbcl.git

diff --git a/src/compiler/ir1report.lisp b/src/compiler/ir1report.lisp
index 6f18bd4..5dcac30 100644
--- a/src/compiler/ir1report.lisp
+++ b/src/compiler/ir1report.lisp
@@ -499,7 +499,7 @@ has written, having proved that it is unreachable."))
     (aver ep) ; else no entry points??
     (multiple-value-bind (form context)
 	(find-original-source
-	 (node-source-path (continuation-next (block-start ep))))
+	 (node-source-path (block-start-node ep)))
       (declare (ignore form))
       (let ((*print-level* 2)
 	    (*print-pretty* nil))