diff --git a/lisp/channel-tui-main.lisp b/lisp/channel-tui-main.lisp
index cd1ccb4..17c3ad9 100644
--- a/lisp/channel-tui-main.lisp
+++ b/lisp/channel-tui-main.lisp
@@ -336,6 +336,7 @@
                    (let ((topic (string-trim '(#\Space) (subseq text 6))))
                      (add-msg :system (format nil "Topic: ~a — use read-file to query USER_MANUAL.org" topic))))
                   ((string-equal text "/help")
+                   (add-msg :system "/eval <expr>   Evaluate Lisp")
                    (add-msg :system "/undo          Undo last operation")
                    (add-msg :system "/redo          Redo last operation")
                    (add-msg :system "/why           Show last gate trace")
diff --git a/org/channel-tui-main.org b/org/channel-tui-main.org
index 8d2f5e0..d1a46f1 100644
--- a/org/channel-tui-main.org
+++ b/org/channel-tui-main.org
@@ -370,6 +370,7 @@ Event handlers + daemon I/O + main loop.
                    (let ((topic (string-trim '(#\Space) (subseq text 6))))
                      (add-msg :system (format nil "Topic: ~a — use read-file to query USER_MANUAL.org" topic))))
                   ((string-equal text "/help")
+                   (add-msg :system "/eval <expr>   Evaluate Lisp")
                    (add-msg :system "/undo          Undo last operation")
                    (add-msg :system "/redo          Redo last operation")
                    (add-msg :system "/why           Show last gate trace")