diff --git a/compiler/old-rt/nlx.lisp b/compiler/old-rt/nlx.lisp
index d7e970bee60caa244c4dc5bec104d66b129ad6e7..a4ed6e6348022ea17dd2f534810e7e571b4e2979 100644
--- a/compiler/old-rt/nlx.lisp
+++ b/compiler/old-rt/nlx.lisp
@@ -171,7 +171,9 @@
   (:ignore start count values nl0 nl1 a2 a3 misc-pc)
   (:variant-vars)
   (:save-p :force-to-stack)
+  (:vop-var vop)
   (:generator 30
+    (note-this-location vop :non-local-exit)
     (unless (location= a0 top)
       (inst lr a0 top))
     (inst miscopx 'clc::nlx-entry-default-values)
@@ -186,7 +188,9 @@
   (:ignore start count nl0 nl1 a2 a3 misc-pc)
   (:variant-vars)
   (:save-p :force-to-stack)
+  (:vop-var vop)
   (:generator 30
+    (note-this-location vop :non-local-exit)
     (unless (location= a0 top)
       (inst lr a0 top))
     (inst miscop 'clc::nlx-entry-receive-values)
@@ -202,4 +206,6 @@
   (:save-p :force-to-stack)
   (:results (block) (start) (count))
   (:ignore block start count)
-  (:generator 0))
+  (:vop-var vop)
+  (:generator 0
+    (note-this-location vop :non-local-exit)))