diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index 7545d794c1ff545cde950e96c18a68a2bbc620e9..dedeb62e214a875d2878fe7c6b7e9ce325b5e655 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -468,8 +468,8 @@ default-value-5
     (maybe-load-stack-tn old-fp-temp old-fp)
     (maybe-load-stack-tn return-pc-temp return-pc)
     (inst lr sp-tn fp-tn)
-    (inst bnbrx :pz return-pc)
-    (inst lr fp-tn old-fp)))
+    (inst bnbrx :pz return-pc-temp)
+    (inst lr fp-tn old-fp-temp)))
 
 
 ;;;; Full call: