diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org
index cf4c8f8..0213f9e 100644
--- a/org/channel-tui-main.org
+++ b/org/channel-tui-main.org
@@ -780,7 +780,7 @@ supplied (e.g. \"/\"), pre-fill the select filter with it."
   (when (st :stream)
     (ignore-errors (close (st :stream)))
     (setf (st :stream) nil (st :connected) nil)
-    (add-msg :system (format nil "* Disconnected [now=~a] *" (now))))
+    (add-msg :system (format nil "* Disconnected [now=~a] *" (now)))))
 #+END_SRC
 
 ** Main Loop
@@ -997,8 +997,8 @@ supplied (e.g. \"/\"), pre-fill the select filter with it."
                                                                   (format nil "CTRL-~a"
                                                                           (code-char (+ #x60 code))))
                                                                 :keyword))
-                                                             (t code)))))))))))
-                  (sb-ext:timeout ()))
+                                                             (t code))))))))))))
+                  (sb-ext:timeout ())
                ;; Check for terminal resize (SIGWINCH sets this flag)
                (when (boundp 'cl-tty.input::*terminal-resized-p*)
                  (when cl-tty.input::*terminal-resized-p*