2 files changed, 2 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 4ce871b7288..e2683795934 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
         Use much-faster test for byte-length change.
         Don't assume string byte-length fits in 'int'.
         Check that character arg fits in 'int'.
+        (mapcar1): Declare byte as byte, for clarity.
 
         * alloc.c (Fmake_bool_vector): Avoid unnecessary multiplication.
 
diff --git a/src/fns.c b/src/fns.c
index 32d96fbc94e..bbda385d927 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -2307,7 +2307,7 @@ mapcar1 (EMACS_INT leni, Lisp_Object *vals, Lisp_Object fn, Lisp_Object seq)
     {
       for (i = 0; i < leni; i++)
         {
-          int byte;
+          unsigned char byte;
           byte = XBOOL_VECTOR (seq)->data[i / BOOL_VECTOR_BITS_PER_CHAR];
           dummy = (byte & (1 << (i % BOOL_VECTOR_BITS_PER_CHAR))) ? Qt : Qnil;
           dummy = call1 (fn, dummy);