This is working: # This is a Tcl script to be run immediately after connecting to a server. bind evnt - init-server evnt:init_server bind raw - "432" evnt:nick_invalid proc evnt:init_server {type} { global nick putserv "OPER nick operpass" putserv "NICK $nick" putserv ...