diff --git a/module/system/base/types.scm b/module/system/base/types.scm
index ed95347c4..4544a6ba0 100644
--- a/module/system/base/types.scm
+++ b/module/system/base/types.scm
@@ -428,7 +428,9 @@ using BACKEND."
            (stringbuf (bytevector->string buf "ISO-8859-1")))
           (((_ & #x047f = (bitwise-ior #x400 %tc7-stringbuf))
             len (bytevector buf (* 4 len)))
-           (stringbuf (bytevector->string buf "UTF-32LE")))
+           (stringbuf (bytevector->string buf (match (native-endianness)
+                                                ('little "UTF-32LE")
+                                                ('big "UTF-32BE")))))
           (((_ & #x7f = %tc7-bytevector) len address)
            (let ((bv-port (memory-port backend address len)))
              (get-bytevector-all bv-port)))