1 files changed, 3 insertions, 2 deletions

diff --git a/src/callint.c b/src/callint.c
index 87c5057cb40..c3375818ba8 100644
--- a/src/callint.c
+++ b/src/callint.c
@@ -400,14 +400,15 @@ Otherwise, this is done only if an arg is read using the minibuffer.")
         case 'e':               /* The invoking event.  */
           /* Find the next parameterized event.  */
           while (next_event < this_command_key_count
-                 && ! EVENT_HAS_PARAMETERS (this_command_keys[next_event]))
+                 && ! (EVENT_HAS_PARAMETERS
+                       (XVECTOR (this_command_keys)->contents[next_event])))
             next_event++;
           if (next_event >= this_command_key_count)
             error ("%s must be bound to an event with parameters",
                    (XTYPE (function) == Lisp_Symbol
                     ? (char *) XSYMBOL (function)->name->data
                     : "command"));
-          args[i] = this_command_keys[next_event++];
+          args[i] = XVECTOR (this_command_keys)->contents[next_event++];
           varies[i] = -1;
           break;