diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index 44cb283..d65c5b2 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -113,7 +113,6 @@
 ;;miscelaneous state
 ;;-------------------
 
-;;1....upper;2....lower
 (define *focus-buffer* 'command-buffer)
 
 (define (focus-on-command-buffer?)
@@ -307,14 +306,16 @@
 	   ((= ch 111)
 	    (begin
 	      (if (focus-on-command-buffer?)
-		  (begin
+		  (let ((key-message 
+			 (make-key-pressed-message active-command
+						   current-result-object
+						   97)))
 		    (focus-result-buffer!)
-		    (let ((key-message 
-			   (make-key-pressed-message active-command
-							 current-result-object
-							 97)))
-		      (set! current-result-object (switch key-message))))
-		  (focus-command-buffer!))
+		    (set! current-result-object (switch key-message))
+		    (paint-result-window))
+		  (begin
+		    (focus-command-buffer!)
+		    (paint-command-window-contents)))
 	      (set! c-x-pressed #f)
 	      (loop (wait-for-input))))