diff --git a/compiler/ARM/arm2.lisp b/compiler/ARM/arm2.lisp
index 92020e48a..c54ef507e 100644
--- a/compiler/ARM/arm2.lisp
+++ b/compiler/ARM/arm2.lisp
@@ -8691,6 +8691,7 @@ v idx-reg constidx val-reg (arm2-unboxed-reg-for-aset seg type-keyword val-reg s
 
 (defarm2 arm2-lambda-bind lambda-bind (seg vreg xfer vals req rest keys-p auxen body p2decls)
   (let* ((old-stack (arm2-encode-stack))
+         (*arm2-nfp-depth* *arm2-nfp-depth*)
          (nreq (list-length req))
          (rest-arg (nthcdr nreq vals))
          (apply-body (arm2-eliminate-&rest body rest keys-p auxen rest-arg)))
diff --git a/compiler/X86/x862.lisp b/compiler/X86/x862.lisp
index 9446dd905..0c1620176 100644
--- a/compiler/X86/x862.lisp
+++ b/compiler/X86/x862.lisp
@@ -9951,6 +9951,7 @@
   
   (setq vals (copy-list vals))
   (let* ((old-stack (x862-encode-stack))
+         (*x862-nfp-depth* *x862-nfp-depth*)
          (val nil)
          (bits nil)
          (valcopy vals))