diff --git a/code/alieneval.lisp b/code/alieneval.lisp
index 4c9cc3d2d5fa9d6c987f8510c1a815ff177c7be7..e9c89de1624c2fca56f87c7d1a861441b622c309 100644
--- a/code/alieneval.lisp
+++ b/code/alieneval.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.5 1990/10/03 15:15:55 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/alieneval.lisp,v 1.6 1990/11/06 14:04:03 wlott Exp $
 ;;;
 ;;;    This file contains any the part of the Alien implementation that
 ;;; is not part of the compiler.
@@ -609,11 +609,11 @@
 	    value)))
      (t
       (macrolet ((low-byte ()
-			   (ecase vm:target-byte-order
+			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
 			     (:bit-endian '(1+ offset))))
 		 (high-byte ()
-			    (ecase vm:target-byte-order
+			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
 			      (:bit-endian 'offset))))
 	(let* ((high-bits (- 32 bit-offset))
@@ -657,11 +657,11 @@
       (setf (ldb (byte size r) (sap-ref-32 sap q)) value))
      (t
       (macrolet ((low-byte ()
-			   (ecase vm:target-byte-order
+			   (ecase (c:backend-byte-order c:*backend*)
 			     (:little-endian 'offset)
 			     (:bit-endian '(1+ offset))))
 		 (high-byte ()
-			    (ecase vm:target-byte-order
+			    (ecase (c:backend-byte-order c:*backend*)
 			      (:little-endian '(1+ offset))
 			      (:bit-endian 'offset))))
 	(let* ((high-bits (- 32 r))
diff --git a/code/internet.lisp b/code/internet.lisp
index 498939c53911c0514499c55383a1de3067beff77..194e78d488abd3dbd784772051b2ad8b88243345 100644
--- a/code/internet.lisp
+++ b/code/internet.lisp
@@ -47,7 +47,7 @@
 
 
 (defmacro maybe-byte-swap (var bytes)
-  (ecase vm:target-byte-order
+  (ecase (c:backend-byte-order c:*backend*)
     (:big-endian
      var)
     (:little-endian