diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index a99d8010677e824d5a2b3b82474c222ad79fbdcb..5a696d5d242a18c378b9de884bddca8ae91e09e5 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -62,14 +62,16 @@
 ;;; known location.
 ;;;
 (defun make-old-fp-save-location (env)
-  (environment-live-tn
-   (make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset)
-   env))
+  (specify-save-tn
+   (environment-debug-live-tn (make-normal-tn *any-primitive-type*)
+			      env)
+   (make-wired-tn *any-primitive-type* stack-arg-scn old-fp-save-offset)))
 ;;;
 (defun make-return-pc-save-location (env)
-  (environment-live-tn
-   (make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset)
-   env))
+  (specify-save-tn
+   (environment-debug-live-tn (make-normal-tn *any-primitive-type*)
+			      env)
+   (make-wired-tn *any-primitive-type* stack-arg-scn return-pc-save-offset)))
 
 
 ;;; Make-Argument-Count-Location  --  Interface