diff --git a/LOG b/LOG
index 2b92305b49..3d96df9b85 100644
--- a/LOG
+++ b/LOG
@@ -752,3 +752,5 @@
   a partial object file.
     syntax.ss,
     7.ms
+- fix signature of bytevector-[u/s]16-native-set!
+    primdata.ss
diff --git a/s/primdata.ss b/s/primdata.ss
index 60163efd8d..dc8aee9e62 100644
--- a/s/primdata.ss
+++ b/s/primdata.ss
@@ -367,7 +367,7 @@
   (bytevector-uint-ref [sig [(bytevector sub-index symbol sub-length) -> (uint)]] [flags true mifoldable discard])
   (bytevector-sint-ref [sig [(bytevector sub-index symbol sub-length) -> (sint)]] [flags true mifoldable discard])
   (bytevector-uint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true])
-  (bytevector-sint-set! [sig [(bytevector sub-index sub-uint symbol sub-length) -> (void)]] [flags true])
+  (bytevector-sint-set! [sig [(bytevector sub-index sub-sint symbol sub-length) -> (void)]] [flags true])
   (bytevector->uint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc])
   (bytevector->sint-list [sig [(bytevector symbol sub-index) -> (list)]] [flags alloc])
   (uint-list->bytevector [sig [(sub-list symbol sub-index) -> (bytevector)]] [flags alloc])
@@ -378,8 +378,8 @@
   (bytevector-s16-native-ref [sig [(bytevector sub-index) -> (s16)]] [flags true cp02])
   (bytevector-u16-set! [sig [(bytevector sub-index u16 symbol) -> (void)]] [flags true])
   (bytevector-s16-set! [sig [(bytevector sub-index s16 symbol) -> (void)]] [flags true])
-  (bytevector-u16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true])
-  (bytevector-s16-native-set! [sig [(bytevector sub-index symbol) -> (void)]] [flags true])
+  (bytevector-u16-native-set! [sig [(bytevector sub-index u16) -> (void)]] [flags true])
+  (bytevector-s16-native-set! [sig [(bytevector sub-index s16) -> (void)]] [flags true])
   (bytevector-u32-ref [sig [(bytevector sub-index symbol) -> (u32)]] [flags true mifoldable discard])
   (bytevector-s32-ref [sig [(bytevector sub-index symbol) -> (s32)]] [flags true mifoldable discard])
   (bytevector-u32-native-ref [sig [(bytevector sub-index) -> (u32)]] [flags true cp02])