diff --git a/lisp/gateway-tui.lisp b/lisp/gateway-tui.lisp
index 1ffaf9b..f705578 100644
--- a/lisp/gateway-tui.lisp
+++ b/lisp/gateway-tui.lisp
@@ -193,6 +193,8 @@
                (chat-win (make-instance 'window :height chat-h :width (- w 2) :y status-h :x 1))
                (input-win (make-instance 'window :height input-h :width (- w 2) :y (- h input-h 1) :x 1)))
           (setf (input-blocking input-win) nil)
+          (setf (function-keys-enabled-p input-win) t)
+          (setf (function-keys-enabled-p chat-win) t)
           (reader-start *stream*)
           (loop :while *is-running* :do
             (let ((msgs (message-queue-drain)))
diff --git a/org/gateway-tui.org b/org/gateway-tui.org
index ebe0d3b..e1c39b5 100644
--- a/org/gateway-tui.org
+++ b/org/gateway-tui.org
@@ -398,6 +398,8 @@ Keybindings:
                (chat-win (make-instance 'window :height chat-h :width (- w 2) :y status-h :x 1))
                (input-win (make-instance 'window :height input-h :width (- w 2) :y (- h input-h 1) :x 1)))
           (setf (input-blocking input-win) nil)
+          (setf (function-keys-enabled-p input-win) t)
+          (setf (function-keys-enabled-p chat-win) t)
           (reader-start *stream*)
           (loop :while *is-running* :do
             (let ((msgs (message-queue-drain)))