Affichage variable

[sismik]

Bonjour,
Pour me premier post sur ce forum, je pose directement une question ^^
Voilà, après de nombreuses années à scripter mirc, je me lance dans le tcl étant bien conscient des possibilités bien plus élevées de ce dernier.
J'ai commencé par un petit bind tout petit et la je bloque déjà :/

C'est surement pas grand chose, mais je vois pas pourquoi ça n'affiche pas les variables que je passe.

tclcopier

bind pub - !salut pub:salut
 
proc pub:salut {nick uhost hand chan arg} {
	set prout [lindex $arg 1]
	if {$arg != ""} { 
		putserv "PRIVMSG $chan salut $nick $prout" 
	} else { 
		putserv "privmsg $chan chut.. $nick" 
	}
}

Pour info j'ai fais des tests, et si je fais !salut je m'appelle sismik sur le chan, c'est bien le salut qui est répondu donc il prend bien les arguments, mais impossible d'afficher les variables :s

Merci d'avance