irc.client: Fix join message handling

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index ffe78437a717e20690b39a5977891efb6328d50e..472805f5ae193311ec89cf2fb8c78e70a4f475da 100644 (file)
--- 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 -- )