diff --git a/examples/ircd/channel.rkt b/examples/ircd/channel.rkt
index 6a226ff..6b56119 100644
--- a/examples/ircd/channel.rkt
+++ b/examples/ircd/channel.rkt
@@ -20,5 +20,5 @@
              (send! (ircd-event who (irc-message server-prefix 324
                                                  (list (lookup-nick who) Ch "+") #f))))
 
-         (on (message (ircd-action _ (irc-message _ "TOPIC" _ $new-topic)))
+         (on (message (ircd-action _ (irc-message _ "TOPIC" (list Ch) $new-topic)))
              (topic new-topic))))