diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index c90043d..a4923be 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -327,7 +327,7 @@
 	(loop (wait-for-input) #f maybe-selector)))
 
      ;; F7 toggle scheme-mode / command-mode (FIXME: find a better key)
-     ((= ch key-f7)
+     ((= ch key-home)
       (toggle-command/scheme-mode)
       (loop (wait-for-input) #f #f))
 
@@ -808,7 +808,7 @@
     (mvwaddstr win 0 0 
 	       (string-append "Possible completions for " command))
     (wattrset win (A-NORMAL))
-    ((paint-selection-list-at select-list 0 2)
+    (paint-selection-list-at select-list 0 2
      win result-buffer (focus-on-result-buffer?))
     (refresh-result-window)))