diff --git a/bin/ikarus b/bin/ikarus
index ebda573..1a0f2d5 100755
Binary files a/bin/ikarus and b/bin/ikarus differ
diff --git a/bin/ikarus-data.h b/bin/ikarus-data.h
index a8935e4..5fbd02e 100644
--- a/bin/ikarus-data.h
+++ b/bin/ikarus-data.h
@@ -136,7 +136,7 @@
 
 #define bytevector_tag 2
 #define disp_bytevector_length 0
-#define disp_bytevector_data   4
+#define disp_bytevector_data   8
 #define off_bytevector_length (disp_bytevector_length - bytevector_tag)
 #define off_bytevector_data (disp_bytevector_data - bytevector_tag)
 
diff --git a/src/ikarus.boot b/src/ikarus.boot
index 868c318..0832e83 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.compiler.ss b/src/ikarus.compiler.ss
index 88fe041..85393d5 100644
--- a/src/ikarus.compiler.ss
+++ b/src/ikarus.compiler.ss
@@ -1759,7 +1759,7 @@
   (define bytevector-mask 7)
   (define bytevector-tag 2)
   (define disp-bytevector-length 0)
-  (define disp-bytevector-data 4)
+  (define disp-bytevector-data 8)
 
   (define ptag-mask 7)
   (define symbol-ptag 5)
diff --git a/src/todo-r6rs.ss b/src/todo-r6rs.ss
index ca228ad..a89d5e4 100755
--- a/src/todo-r6rs.ss
+++ b/src/todo-r6rs.ss
@@ -584,7 +584,7 @@
     [i/o-write-error?                           D ip is fi]
     [lookahead-char                             D ip]
     [lookahead-u8                               D ip]
-    [make-bytevector                            D bv]
+    [make-bytevector                            C bv]
     [make-custom-binary-input-port              D ip]
     [make-custom-binary-input/output-port       D ip]
     [make-custom-binary-output-port             D ip]