diff --git a/extra/irc/messages/messages.factor b/extra/irc/messages/messages.factor
old mode 100644
new mode 100755
index 3b9cf0af2c..fb56dd3a45
--- a/extra/irc/messages/messages.factor
+++ b/extra/irc/messages/messages.factor
@@ -46,7 +46,7 @@ GENERIC: irc-command-parameters ( irc-message -- seq )
 M: irc-message irc-command-parameters ( irc-message -- seq ) parameters>> ;
 M: ping        irc-command-parameters ( ping -- seq )    drop { } ;
 M: join        irc-command-parameters ( join -- seq )    drop { } ;
-M: part        irc-command-parameters ( part -- seq )    name>> 1array ;
+M: part        irc-command-parameters ( part -- seq )    channel>> 1array ;
 M: quit        irc-command-parameters ( quit -- seq )    drop { } ;
 M: nick        irc-command-parameters ( nick -- seq )    drop { } ;
 M: privmsg     irc-command-parameters ( privmsg -- seq ) name>> 1array ;
diff --git a/extra/irc/ui/commands/commands.factor b/extra/irc/ui/commands/commands.factor
index ddae783f06..184a2b4de8 100755
--- a/extra/irc/ui/commands/commands.factor
+++ b/extra/irc/ui/commands/commands.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 William Schlieper
 ! See http://factorcode.org/license.txt for BSD license.
 
-USING: accessors kernel irc.client irc.messages irc.ui namespaces ;
+USING: accessors kernel arrays irc.client irc.messages irc.ui namespaces ;
 
 IN: irc.ui.commands
 
@@ -16,5 +16,9 @@ IN: irc.ui.commands
 : query ( string -- )
     irc-tab get window>> query-nick ;
 
+: whois ( string -- )
+    "WHOIS" swap { } clone swap  <irc-client-message>
+    irc-tab get listener>> write-message ;
+
 : quote ( string -- )
     drop ; ! THIS WILL CHANGE