erreur dans tcl

[dino]

Je ne sais pas quelle pourrait être l'erreur, aidez-moi s'il vous plaît.
en partyline me sale este error
[01:23:25] Tcl error [changeguest]: illegal channel: *

tclcopier

bind nick - * changeguest
proc changeguest {nick uhost hand chan newnick} {
  global botnick ayudaguest
if {[matchattr $hand mnofb|mnofb $chan] || [isop $nick $chan] || [isvoice $nick $chan] || [ishalfop $nick $chan] && ($nick != $::botnick)} { return 0 }
  foreach guest $ayudaguest {
if {[string match -nocase $guest $newnick]} {
  puthelp "PRIVMSG $chan :Si vous souhaitez utiliser un pseudo, tapez ceci /nick your-nick example /nick ralf et arrêtez d'être un invité."
break ;
}
}
}

MODERATION: Deuxième avertissement ... merci de ne pas copier/coller d'un site mettant de la coloration syntaxique.

[CrazyCat]

Je ne vois pas d'erreur particulière dans cette procédure qui puisse faire cela, à moins que la procédure ne soit aussi appelée par un autre moyen que ce bind.
Le script complet peut aider, ainsi que taper .set errorInfo en party-line lorsque l'erreur se produit.

Note: j'ai testé le script en l'état et il fonctionne très bien. Donc, sans le script complet, impossible d'aider plus.

Essai (en mettant set ayudaguest {"zeolien*" "toto*"}):

16:30:28 -- CrazyCat est maintenant connu sous le nom toto
16:30:29 <pyegg> Si vous souhaitez utiliser un pseudo, tapez ceci /nick your-nick example /nick ralf et arrêtez d'être un invité.