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
 	    }
 	}