diff --git a/test-suite/tests/bytevectors.test b/test-suite/tests/bytevectors.test
index 3007434..b652935 100644
--- a/test-suite/tests/bytevectors.test
+++ b/test-suite/tests/bytevectors.test
@@ -114,10 +114,14 @@
               #xfffffffffffffffffffffffffffffffd)))
 
   (pass-if "bytevector-sint-ref [small]"
-    (let ((b (u8-list->bytevector '(#xff #xf0 #xff))))
-      (equal? (bytevector-sint-ref b 0 (endianness big) 2)
-              (bytevector-sint-ref b 1 (endianness little) 2)
-              -16)))
+    (let* ((b (u8-list->bytevector '(#xff #xf0 #xff)))
+           (be-result (bytevector-sint-ref b 0 (endianness big) 2))
+           (le-result (bytevector-sint-ref b 1 (endianness little) 2)))
+      (or (equal? be-result le-result -16)
+          (begin (format (current-error-port)
+                         "bytevector-sint-ref [small] failure: ~S ~S~%"
+                         be-result le-result)
+                 #f))))
 
   (pass-if "bytevector-sint-ref [large]"
     (let ((b (make-bytevector 50)))