diff --git a/src/command-window.lisp b/src/command-window.lisp
index d33fd87..f70d4f8 100644
--- a/src/command-window.lisp
+++ b/src/command-window.lisp
@@ -257,7 +257,7 @@ be either `:keybinding' or `:string'.  the former for key command the latter for
          (move-suggestion-page-left command-window))
         ((eq :control-right decoded-event)      ; suggestion win pagination
          (move-suggestion-page-right command-window))
-        ((eq :backspace decoded-event)          ; delete last command or char
+        ((eq :key-backspace decoded-event)          ; delete last command or char
          (let ((command-before-last (safe-all-but-last-elt command-line)))
            (setf command-line nil)
            (cond