diff --git a/LOG b/LOG
index 9ae8cb7979..a2c1e94447 100644
--- a/LOG
+++ b/LOG
@@ -752,5 +752,7 @@
   a partial object file.
     syntax.ss,
     7.ms
+- fix signature of bytevector-[u/s]16-native-set!
+    primdata.ss
 - fix enumerate signature 
     primdata.ss
\ No newline at end of file
diff --git a/c/globals.h b/c/globals.h
index 25aed73e1d..9006d1a7a3 100644
--- a/c/globals.h
+++ b/c/globals.h
@@ -15,7 +15,7 @@
  */
 
 /* globals that do NOT need to be preserved in a saved heap.
- * they must be initalized each time the system is brought up. */
+ * they must be initialized each time the system is brought up. */
 
 /* gc.c */
 EXTERN IBOOL S_checkheap;
diff --git a/s/primdata.ss b/s/primdata.ss
index 74e1ea8733..6eb18d228d 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])
diff --git a/scheme.1.in b/scheme.1.in
index 738eff20e9..69191eb21b 100644
--- a/scheme.1.in
+++ b/scheme.1.in
@@ -14,7 +14,7 @@
 \fB{InstallPetiteName}\fP [ \fIoptions\fP ] \fIfile\fP ...
 .SH DESCRIPTION
 \*s is a programming language, based on R6RS Scheme, and a
-high-performance implementation of that langauge.
+high-performance implementation of that language.
 \*s compiles source expressions \fIincrementally\fP to machine code,
 providing the speed of compiled code in an interactive system.
 .LP