diff --git a/compiler/mips/call.lisp b/compiler/mips/call.lisp
index add9a7459b23589ad35e2b5b03cd28d0923fb6fd..00487905042172f73e43dfe5fef3858c1f039a4e 100644
--- a/compiler/mips/call.lisp
+++ b/compiler/mips/call.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.7 1990/05/10 04:40:58 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/call.lisp,v 1.8 1990/05/11 06:49:32 wlott Exp $
 ;;;
 ;;;    This file contains the VM definition of function call for the MIPS.
 ;;;
@@ -400,13 +400,13 @@ default-value-5
   (:generator 5
     (let ((label (gen-label))
 	  (cur-nfp (current-nfp-tn vop)))
-      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (move fp-tn fp)
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (let ((callee-nfp (callee-nfp-tn callee)))
 	(when callee-nfp
 	  (move callee-nfp nfp)))
+      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (inst b target)
       (inst nop)
       (emit-return-pc label)
@@ -433,13 +433,13 @@ default-value-5
   (:generator 20
     (let ((label (gen-label))
 	  (cur-nfp (current-nfp-tn vop)))
-      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (move fp-tn fp)
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (let ((callee-nfp (callee-nfp-tn callee)))
 	(when callee-nfp
 	  (move callee-nfp nfp)))
+      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (inst b target)
       (inst nop)
       (emit-return-pc label)
@@ -468,13 +468,13 @@ default-value-5
   (:generator 5
     (let ((label (gen-label))
 	  (cur-nfp (current-nfp-tn vop)))
-      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (move fp-tn fp)
       (when cur-nfp
 	(store-stack-tn nfp-save cur-nfp))
       (let ((callee-nfp (callee-nfp-tn callee)))
 	(when callee-nfp
 	  (move callee-nfp nfp)))
+      (inst compute-lra-from-code (callee-return-pc-tn callee) code-tn label)
       (inst b target)
       (inst nop)
       (note-this-location vop :known-return)