diff --git a/scheme/nuit-engine.scm b/scheme/nuit-engine.scm
index c9b47bf..2ce3627 100644
--- a/scheme/nuit-engine.scm
+++ b/scheme/nuit-engine.scm
@@ -288,21 +288,21 @@
 (define (eval-command-in-scheme-mode command-line)
   (if (scheme-command-line? command-line)
       (process-scheme-command command-line)
-      (let ((viewer
-             (find/init-plugin-for-result
-              (eval-string command-line)))
-            (new-entry
-             (make-history-entry command-line '() viewer)))
-          ;; #### shouldn't we use some kind of insertion here?
-          (append-to-history! new-entry)
-          (signal-result-buffer-object-change)
-          (obtain-lock paint-lock)
-          (paint-active-command-window)
-          (paint-result-window new-entry)
-          (refresh-result-window)
-          (move-cursor (command-buffer) (result-buffer))
-          (refresh-command-window)
-          (release-lock paint-lock))))
+      (let* ((viewer
+              (find/init-plugin-for-result
+               (eval-string command-line)))
+             (new-entry
+              (make-history-entry command-line '() viewer)))
+        ;; #### shouldn't we use some kind of insertion here?
+        (append-to-history! new-entry)
+        (signal-result-buffer-object-change)
+        (obtain-lock paint-lock)
+        (paint-active-command-window)
+        (paint-result-window new-entry)
+        (refresh-result-window)
+        (move-cursor (command-buffer) (result-buffer))
+        (refresh-command-window)
+        (release-lock paint-lock))))
 
 ;; #### crufty, and a very dumb idea
 (define split-command-line string-tokenize)