bind join "-|-" * irc_join 

proc irc_join {nick uhost hand chan} {
	global botnick
	putserv "PRIVMSG $chan this should work" 
}