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 76382edf1b61fbaf3d8a52277938eaa004959ea6..db4fdd2a584726b2dcd45cbd4ce6498513a32fca 100755 (executable)
--- a/extra/irc/client/client.factor
+++ b/extra/irc/client/client.factor
@@ -181,7 +181,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 ;