[BUG] Probleme d'actualisation surment...

[heretoc]

Exposition du Probleme :
Quand n'importe quel utilisateurs change de pseudo via "/nick newpseudo" ou "!newnick" et parle juste après le robot plante , pareil si il change le mode d'un salon et parle juste après le robot plante avec l'erreure suivante :

Erreur tcl [evenement_serveur]: can't read "Chatteurs(heretoc@ident)": no such element in array

Voila le code ou je pense que sa foire bien (cela est mon premier tcl link au server soyez indulgents) :

Code :

        "NICK" {
            set pseudonyme [string tolower [string trim [lindex $raw_brute 0] :]];
            set changement_pseudonyme [string tolower [lindex $raw_brute 2]];

            if {![info exists Chatteurs($changement_pseudonyme@host)]} {
                if {![info exists Chatteurs($pseudonyme@host)]} {
                    set Chatteurs($changement_pseudonyme@ident) $Chatteurs($pseudonyme@ident);
                    set Chatteurs($changement_pseudonyme@host) $Chatteurs($pseudonyme@host);

                    unset Chatteurs($pseudonyme@ident);
                    unset Chatteurs($pseudonyme@host);
                } else {
                    set Chatteurs($changement_pseudonyme@ident) $Chatteurs($pseudonyme@ident);
                    set Chatteurs($changement_pseudonyme@host) $Chatteurs($pseudonyme@host);

                    unset Chatteurs($pseudonyme@ident);
                    unset Chatteurs($pseudonyme@host);
                }
            }

            unset pseudonyme;
            unset changement_pseudonyme;
        }

        "SETHOST" {
            set pseudonyme [string tolower [string trim [lindex $raw_brute 0] :]];
            if {[info exists Chatteurs($pseudonyme@host)]} {
                set Chatteurs($pseudonyme@host) [lindex $raw_brute 2];
            }
        }

        "CHGHOST" {
            set pseudonyme [string tolower [string trim [lindex $raw_brute 2] :]];
            if {[info exists Chatteurs($pseudonyme@host)]} {
                set Chatteurs($pseudonyme@host) [lindex $raw_brute 3];
            }
        }
    }
}

Merci de bien vouloir m'aider.