1 files changed, 2 insertions, 2 deletions

diff --git a/src/alloc.c b/src/alloc.c
index 80b63345459..470cb9277bb 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2701,10 +2701,10 @@ make_event_array (nargs, args)
     result = Fmake_string (make_number (nargs), make_number (0));
     for (i = 0; i < nargs; i++)
       {
-        SREF (result, i) = XINT (args[i]);
+        SSET (result, i, XINT (args[i]));
         /* Move the meta bit to the right place for a string char.  */
         if (XINT (args[i]) & CHAR_META)
-          SREF (result, i) |= 0x80;
+          SSET (result, i, SREF (result, i) | 0x80);
       }
     
     return result;