 [ drop gmt timestamp>rfc822 print flush ]
 <" Syntax: /time
 Returns the current GMT time."> "time" add-command
+
+[ handle-nick ]
+<" Syntax: /nick nickname
+Changes your nickname.">
+"nick" add-command
 
 [ handle-me ]
 <" Syntax: /me action">

Displays the documentation for a command.">
"help" add-command

[ drop clients keys ", " join print flush ]
<" Syntax: /who
Shows the list of connected users.">
"who" add-command

    ] "" append-outputs-as send-everyone ;

M: chat-server handle-already-logged-in
    username username-taken-string print flush ;

M: chat-server handle-managed-client*
    readln dup f = [ t client (>>quit?) ] when
