diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index 21b3595858afa5df24c080b1e74bdc52bbdba601..d365b4b19bff2921e18747260e561fe1b948f34e 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -146,7 +146,8 @@
   (declare (type simple-bit-vector bits))
   (let ((len (length bits))
 	(start (fill-pointer vec)))
-    (cond ((eq target-byte-order native-byte-order)
+    (cond ((eq (backend-byte-order *backend*)
+	       (backend-byte-order *native-backend*))
 	   (let ((bytes (ash len -3)))
 	     (dotimes (i bytes)
 	       (vector-push-extend 0 vec))
@@ -166,7 +167,7 @@
 			       (setq shift ,initial  byte 0)))
 			   (unless (= shift ,initial)
 			     (vector-push-extend byte vec)))))
-	     (ecase target-byte-order
+	     (ecase (backend-byte-order *backend*)
 	       (:little-endian
 		(frob 0 incf (= shift 8)))
 	       (:big-endian