diff --git a/lisp/which-key.el b/lisp/which-key.el
index 1de599e5497..8a61dd0edce 100644
--- a/lisp/which-key.el
+++ b/lisp/which-key.el
@@ -2336,9 +2336,9 @@ which-key-reload-key-sequence
 `which-key--current-key-list'.  Any prefix arguments that were
 used are reapplied to the new key sequence."
   (let* ((key-seq (or key-seq (which-key--current-key-list)))
-         (next-event (mapcar (lambda (ev) (cons t ev)) key-seq)))
+         (next-evt (mapcar (lambda (ev) (cons t ev)) key-seq)))
     (setq prefix-arg current-prefix-arg
-          unread-command-events next-event)))
+          unread-command-events next-evt)))
 
 (defun which-key-turn-page (delta)
   "Show the next page of keys."