Soucis avec un codage

[KeeViiNou]

Bonjour j'ai un soucis avec ce codage :

tclcopier

proc putnow { text } {
		# Envoie une commande au serveur sans passer par les files de
		# messages. 'text' est envoyé instantanément au serveur.
		# Attention : l'abus de cette commande peut flooder le serveur.
 
		append text "\r\n"
 
		set text [::jeux::encodeto $text]
 
		putnow 0 [string length $text] $text
	}

j'ai l'erreur suivante

[09:53] <(Jeux> [09:53:33] Tcl error [::jeux::start]: wrong # args: should be "putnow text"