diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 216fca620..f0df551d2 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -299,6 +299,8 @@
          (emit-builtin-ref asm dst (constant name)))
         (($ $primcall 'bv-u8-ref (bv idx))
          (emit-bv-u8-ref asm dst (slot bv) (slot idx)))
+        (($ $primcall 'bv-s8-ref (bv idx))
+         (emit-bv-s8-ref asm dst (slot bv) (slot idx)))
         (($ $primcall 'bv-u16-ref (bv idx))
          (emit-bv-u16-ref asm dst (slot bv) (slot idx)))
         (($ $primcall 'bv-s16-ref (bv idx))
@@ -372,6 +374,8 @@
          (emit-wind asm (slot winder) (slot unwinder)))
         (($ $primcall 'bv-u8-set! (bv idx val))
          (emit-bv-u8-set! asm (slot bv) (slot idx) (slot val)))
+        (($ $primcall 'bv-s8-set! (bv idx val))
+         (emit-bv-s8-set! asm (slot bv) (slot idx) (slot val)))
         (($ $primcall 'bv-u16-set! (bv idx val))
          (emit-bv-u16-set! asm (slot bv) (slot idx) (slot val)))
         (($ $primcall 'bv-s16-set! (bv idx val))
diff --git a/module/language/cps/primitives.scm b/module/language/cps/primitives.scm
index 58506a5f0..d85492f08 100644
--- a/module/language/cps/primitives.scm
+++ b/module/language/cps/primitives.scm
@@ -40,21 +40,21 @@
     (modulo . mod)
     (variable-ref . box-ref)
     (variable-set! . box-set!)
-    (bytevector-u8-native-ref . bv-u8-ref)
+    (bytevector-u8-ref . bv-u8-ref)
     (bytevector-u16-native-ref . bv-u16-ref)
     (bytevector-u32-native-ref . bv-u32-ref)
     (bytevector-u64-native-ref . bv-u64-ref)
-    (bytevector-s8-native-ref . bv-s8-ref)
+    (bytevector-s8-ref . bv-s8-ref)
     (bytevector-s16-native-ref . bv-s16-ref)
     (bytevector-s32-native-ref . bv-s32-ref)
     (bytevector-s64-native-ref . bv-s64-ref)
     (bytevector-f32-native-ref . bv-f32-ref)
     (bytevector-f64-native-ref . bv-f64-ref)
-    (bytevector-u8-native-set! . bv-u8-set!)
+    (bytevector-u8-set! . bv-u8-set!)
     (bytevector-u16-native-set! . bv-u16-set!)
     (bytevector-u32-native-set! . bv-u32-set!)
     (bytevector-u64-native-set! . bv-u64-set!)
-    (bytevector-s8-native-set! . bv-s8-set!)
+    (bytevector-s8-set! . bv-s8-set!)
     (bytevector-s16-native-set! . bv-s16-set!)
     (bytevector-s32-native-set! . bv-s32-set!)
     (bytevector-s64-native-set! . bv-s64-set!)