diff --git a/compiler/mips/static-fn.lisp b/compiler/mips/static-fn.lisp
index 0038e20e07b389cc6f4540db502d721e20d478d9..8ac3961947f025363f36dd4d7020c33b3e36a345 100644
--- a/compiler/mips/static-fn.lisp
+++ b/compiler/mips/static-fn.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.14 1991/02/20 15:15:11 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.15 1991/07/14 03:46:41 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.14 1991/02/20 15:15:11 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/static-fn.lisp,v 1.15 1991/07/14 03:46:41 wlott Exp $
 ;;;
 ;;; This file contains the VOPs and macro magic necessary to call static
 ;;; functions.
@@ -33,7 +33,7 @@
   (:temporary (:sc descriptor-reg :offset cname-offset) cname)
   (:temporary (:scs (interior-reg) :type interior) lip)
   (:temporary (:sc any-reg :offset nargs-offset) nargs)
-  (:temporary (:sc any-reg :offset old-fp-offset) old-fp)
+  (:temporary (:sc any-reg :offset ocfp-offset) old-fp)
   (:temporary (:sc control-stack :offset nfp-save-offset) nfp-save))
 
 
@@ -98,10 +98,10 @@
 		      vm:other-pointer-type))
 	     (when cur-nfp
 	       (store-stack-tn nfp-save cur-nfp))
-	     (inst move old-fp fp-tn)
+	     (inst move old-fp cfp-tn)
 	     (inst compute-lra-from-code lra code-tn lra-label temp)
 	     (inst j lip)
-	     (inst move fp-tn csp-tn)
+	     (inst move cfp-tn csp-tn)
 	     (emit-return-pc lra-label)
 	     (note-this-location vop :unknown-return)
 	     ,(collect ((bindings) (links))