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: