Index: ircd.tcl ================================================================== --- ircd.tcl +++ ircd.tcl @@ -119,11 +119,11 @@ } elseif {[regexp -nocase {USER +([^ ]+) +([^ ]+) +([^ ]+) +(.+)$} \ $line -> user mode virtualhost realname]} \ { stripColon realname clientUser $fd $user - clientVirtualHost $virtualhost + clientVirtualHost $fd $virtualhost clientRealName $fd $realname if {[clientNick $fd] ne {}} { registerClient $fd } }