diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor index ffe78437a7..472805f5ae 100644 --- a/extra/irc/client/client.factor +++ b/extra/irc/client/client.factor @@ -155,7 +155,7 @@ M: privmsg handle-incoming-irc ( privmsg -- ) M: join handle-incoming-irc ( join -- ) [ [ prefix>> parse-name me? ] keep and [ irc> join-messages>> mailbox-put ] when* ] - [ dup channel>> to-listener ] + [ dup trailing>> to-listener ] bi ; M: part handle-incoming-irc ( part -- )