diff --git a/module/system/vm/traps.scm b/module/system/vm/traps.scm
index db82a0ab9..c4861c925 100644
--- a/module/system/vm/traps.scm
+++ b/module/system/vm/traps.scm
@@ -110,7 +110,9 @@
 ;; Returns an absolute IP.
 (define (program-last-ip prog)
   (let ((pdi (find-program-debug-info (program-code prog))))
-    (and pdi (program-debug-info-size pdi))))
+    (and pdi
+         (+ (program-debug-info-addr pdi)
+            (program-debug-info-size pdi)))))
 
 (define (frame-matcher proc)
   (let ((proc (if (struct? proc)