diff --git a/retropikzel/r7rs-pffi/version/guile.scm b/retropikzel/r7rs-pffi/version/guile.scm
index dd6aa99..61812e5 100644
--- a/retropikzel/r7rs-pffi/version/guile.scm
+++ b/retropikzel/r7rs-pffi/version/guile.scm
@@ -131,16 +131,16 @@
       (lambda (pointer type offset)
         (let ((p (pointer->bytevector pointer (+ offset 100)))
               (native-type (pffi-type->native-type type)))
-          (cond ((equal? native-type int8) (bytevector-s8-ref p offset (native-endianness)))
-                ((equal? native-type uint8) (bytevector-u8-ref p offset (native-endianness)))
+          (cond ((equal? native-type int8) (bytevector-s8-ref p offset))
+                ((equal? native-type uint8) (bytevector-u8-ref p offset))
                 ((equal? native-type int16) (bytevector-s16-ref p offset (native-endianness)))
                 ((equal? native-type uint16) (bytevector-u16-ref p offset (native-endianness)))
                 ((equal? native-type int32) (bytevector-s32-ref p offset (native-endianness)))
                 ((equal? native-type uint32) (bytevector-u32-ref p offset (native-endianness)))
                 ((equal? native-type int64) (bytevector-s64-ref p offset (native-endianness)))
                 ((equal? native-type uint64) (bytevector-u64-ref p offset (native-endianness)))
-                ((equal? native-type short) (bytevector-s8-ref p offset (native-endianness)))
-                ((equal? native-type unsigned-short) (bytevector-u8-ref p offset (native-endianness)))
+                ((equal? native-type short) (bytevector-s8-ref p offset))
+                ((equal? native-type unsigned-short) (bytevector-u8-ref p offset))
                 ((equal? native-type int) (bytevector-sint-ref p offset (native-endianness) (pffi-size-of type)))
                 ((equal? native-type unsigned-int) (bytevector-uint-ref p offset (native-endianness) (pffi-size-of type)))
                 ((equal? native-type long) (bytevector-s64-ref p offset (native-endianness)))