diff --git a/bytevector-tests.scm b/bytevector-tests.scm
index 2ee5f3b9..a739cb93 100644
--- a/bytevector-tests.scm
+++ b/bytevector-tests.scm
@@ -1,13 +1,19 @@
 (import (scheme base) (scheme write))
 
 (write (make-bytevector 2 12)) ; =⇒ #u8(12 12)
-(write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5)
-(write (bytevector)) ;=⇒ #u8()
+;(write (bytevector 1 3 5 1 3 5)) ; =⇒ #u8(1 3 5 1 3 5)
+;(write (bytevector)) ;=⇒ #u8()
 
-(write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8
-(write
-  (let ((bv (bytevector 1 2 3 4)))
-    (bytevector-u8-set! bv 1 3)
-    bv)
-) ;=⇒ #u8(1 3 3 4)
+(write (bytevector-append
+          (make-bytevector 1 1)
+          (make-bytevector 2 2)
+          (make-bytevector 3 3)
+))
+
+;(write (bytevector-u8-ref '#u8(1 1 2 3 5 8 13 21) 5)) ;=⇒ 8
+;(write
+;  (let ((bv (bytevector 1 2 3 4)))
+;    (bytevector-u8-set! bv 1 3)
+;    bv)
+;) ;=⇒ #u8(1 3 3 4)