Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / extra / irc / client / client.factor

diff --git a/extra/irc/client/client.factor b/extra/irc/client/client.factor
index 2474fd643ac68fb7cdf93465bd746c02692c9074..62e28b2bbf946305ee69923c373ce984e9a55564 100644 (file)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -183,7 +183,7 @@ GENERIC: forward-name ( irc-message -- name )
 M: join forward-name ( join -- name ) trailing>> ;
 M: part forward-name ( part -- name ) channel>> ;
 M: kick forward-name ( kick -- name ) channel>> ;
-M: mode forward-name ( mode -- name ) channel>> ;
+M: mode forward-name ( mode -- name ) name>> ;
 M: privmsg forward-name ( privmsg -- name )
     dup name>> me? [ irc-message-sender ] [ name>> ] if ;