diff --git a/compiler/old-rt/call.lisp b/compiler/old-rt/call.lisp
index fdbf004073e26359642c7263ac4b46654e222cae..2496d43fa8a9b084d883e6f19995b3b468368e8a 100644
--- a/compiler/old-rt/call.lisp
+++ b/compiler/old-rt/call.lisp
@@ -385,9 +385,8 @@ default-value-5
 	      env-save)
   (:generator 5
     (store-stack-tn env-save env-tn)
-    (inst balix (callee-return-pc-tn callee) target)
     (inst lr fp-tn fp)
-    (no-op)
+    (inst bali (callee-return-pc-tn callee) target)
     (note-this-location vop :unknown-return)
     (unassemble
       (default-unknown-values node values nvals move-temp nil-temp))
@@ -412,9 +411,8 @@ default-value-5
 	      env-save)
   (:generator 20
     (store-stack-tn env-save env-tn)
-    (inst balix (callee-return-pc-tn callee) target)
     (inst lr fp-tn fp)
-    (no-op)
+    (inst bali (callee-return-pc-tn callee) target)
     (note-this-location vop :unknown-return)
     (unassemble
       (receive-unknown-values node values-start nvals start count))
@@ -438,9 +436,8 @@ default-value-5
   (:ignore arg-locs args res nfp)
   (:vop-var vop)
   (:generator 5
-    (inst balix (callee-return-pc-tn callee) target)
     (inst lr fp-tn fp)
-    (no-op)
+    (inst bali (callee-return-pc-tn callee) target)
     (note-this-location vop :known-return)))