diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 776109fee..ac5fbf6f5 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -64,7 +64,7 @@
       (let lp ((to from) (target target))
         (cond
          ((negative? target)
-          (lp (1- to) (+ target (vector-ref parsed to))))
+          (lp (1- to) (+ target (vector-ref parsed (1- to)))))
          ((positive? target)
           (lp (1+ to) (- target (vector-ref parsed to))))
          ((= to (vector-length preds))