diff --git a/lisp/channel-tui-view.lisp b/lisp/channel-tui-view.lisp
index 4872ba0..ce020e4 100644
--- a/lisp/channel-tui-view.lisp
+++ b/lisp/channel-tui-view.lisp
@@ -751,9 +751,9 @@ Respects CJK/emoji char widths via char-width."
   (is (null (getf passepartout.channel-tui::*state* :wizard-visible))))
 
 (test test-slash-commands-entry-count
-  "Contract v0.8.0: *slash-commands* has at least 20 entries, each with :name, :desc, :action."
+  "Contract v0.8.0: *slash-commands* has at least 19 entries, each with :name, :desc, :action."
   (let ((cmds passepartout.channel-tui::*slash-commands*))
-    (is (>= (length cmds) 20))
+    (is (>= (length cmds) 19))
     (dolist (c cmds)
       (is (stringp (getf c :name)))
       (is (stringp (getf c :desc)))