diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index ef5f7ff..2086c3c 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -548,7 +548,8 @@
     (result-buffer-handle-key ch))
    (else
     (input (command-buffer) ch)
-    (repaint-command-winow!))))
+    (if (null? (select-port-channels 0 (current-input-port)))
+        (repaint-command-winow!)))))
 
 (define (repaint-command-winow!)
   (obtain-lock paint-lock)