diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp
index c2131e911e945f7b85fcff5e01750c3a78963867..a9e0d9dc27e2e9a0adf3ad4f4683ecb69af86a4f 100644
--- a/compiler/mips/float.lisp
+++ b/compiler/mips/float.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.26 1998/07/24 17:22:35 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.27 1999/04/30 11:50:55 dtc Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -115,7 +115,7 @@
 		  (:results (y :scs (,sc)))
 		  (:note "pointer to float coercion")
 		  (:generator 2
-		    ,@(ecase (backend-byte-order *backend*)
+		    ,@(ecase (backend-byte-order *target-backend*)
 			(:big-endian
 			 (cond 
 			  (double-p
@@ -154,7 +154,7 @@
 			 (inst fmove ,format y x)))
 		      (,stack-sc
 		       (let ((offset (* (tn-offset y) word-bytes)))
-			 ,@(ecase (backend-byte-order *backend*)
+			 ,@(ecase (backend-byte-order *target-backend*)
 			     (:big-endian
 			      (cond
 			       (double-p
diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp
index a8aaf7e1b9014d35b8475d9fc2ee31de3eae0ef2..a1dd56b45daceb7383f334f479fb017852c5241b 100644
--- a/compiler/mips/sap.lisp
+++ b/compiler/mips/sap.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.31 1998/03/04 14:56:40 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.32 1999/04/30 11:50:55 dtc Rel $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -182,7 +182,7 @@
 		 (:single
 		  '((inst lwc1 result sap 0)))
 		 (:double
-		  (ecase (backend-byte-order *backend*)
+		  (ecase (backend-byte-order *target-backend*)
 		    (:big-endian
 		     '((inst lwc1 result sap word-bytes)
 		       (inst lwc1-odd result sap 0)))
@@ -218,7 +218,7 @@
 	       (:single
 		'((inst lwc1 result object offset)))
 	       (:double
-		(ecase (backend-byte-order *backend*)
+		(ecase (backend-byte-order *target-backend*)
 		  (:big-endian
 		   '((inst lwc1 result object (+ offset word-bytes))
 		     (inst lwc1-odd result object offset)))
@@ -253,7 +253,7 @@
 		  (unless (location= result value)
 		    (inst fmove :single result value))))
 	       (:double
-		(ecase (backend-byte-order *backend*)
+		(ecase (backend-byte-order *target-backend*)
 		  (:big-endian
 		   '((inst swc1 value sap word-bytes)
 		     (inst swc1-odd value sap 0)
@@ -295,7 +295,7 @@
 		  (unless (location= result value)
 		    (inst fmove :single result value))))
 	       (:double
-		(ecase (backend-byte-order *backend*)
+		(ecase (backend-byte-order *target-backend*)
 		  (:big-endian
 		   '((inst swc1 value object (+ offset word-bytes))
 		     (inst swc1-odd value object (+ offset word-bytes))