diff --git a/editor/editor.lisp b/editor/editor.lisp
index d7faf42..e7d6a75 100644
--- a/editor/editor.lisp
+++ b/editor/editor.lisp
@@ -1096,7 +1096,10 @@ Additionally ensures correct line numbers on the way, as a bonus."
   (let ((input (get-input-sequence)))
     (if (characterp input)
         (insert-char input)
-        (key-command-dispatch input)))
+        (progn
+          (hide-cursor)
+          (key-command-dispatch input)
+          (show-cursor))))
   (redisplay-status-line)
   (force-output *eio*))