diff --git a/sloth/editor.scm b/sloth/editor.scm
index 6db469c..00f7dab 100644
--- a/sloth/editor.scm
+++ b/sloth/editor.scm
@@ -38,7 +38,7 @@
    ((eqv? key KEY_DOWN)
         (move win (+ y 1) x))
    ((eqv? key #\esc) #:normal-mode)
-   (else (echochar win (normal key)))))
+   (else (insch win (normal key) #:y y #:x (+ x 1)))))
 
 (define (normal-mode-process-input win key)
   (define y (getcury win))