diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp
index 4ba80a75cbebb654a973bc1c80eb1ad9d460b6ef..b7453682ac703642b74a6a389a87135f8073b1c8 100644
--- a/compiler/old-rt/nlx.lisp
+++ b/compiler/old-rt/nlx.lisp
@@ -88,7 +88,7 @@
 ;;;; Unwind block hackery:
 
 ;;; Compute the address of the catch block from its TN, then store into the
-;;; block the current Cont, Env, Unwind-Protect, and the entry PC.
+;;; block the current Fp, Env, Unwind-Protect, and the entry PC.
 ;;;
 (define-vop (make-unwind-block)
   (:args (tn)
@@ -100,7 +100,7 @@
     (inst ai result fp-tn (* (tn-offset tn) 4))
     (load-global temp clc::current-unwind-protect-block)
     (storew temp result system:%unwind-block-current-uwp)
-    (storew fp-tn result system:%unwind-block-current-cont)
+    (storew fp-tn result system:%unwind-block-current-fp)
     (storew env-tn result system:%unwind-block-current-env)
     (storew entry-offset result system:%unwind-block-entry-pc)
     (unless (location= result block)
@@ -121,7 +121,7 @@
     (inst ai result fp-tn (* (tn-offset tn) 4))
     (load-global temp clc::current-unwind-protect-block)
     (storew temp result system:%unwind-block-current-uwp)
-    (storew fp-tn result system:%unwind-block-current-cont)
+    (storew fp-tn result system:%unwind-block-current-fp)
     (storew env-tn result system:%unwind-block-current-env)
     (storew entry-offset result system:%unwind-block-entry-pc)