Problème de phrases dans un fichier

[ReT]

Hello.

J'ai actuellement un soucis dans mon tcl..

tclcopier

set fichier1 "scripts/Phrases/blagues.txt"
 
set canal "#Mon-salon"
 
# Chargement du fichier dans $phrases
set fi1 [open $fichier1 "r"]
set phrases1 [split [read -nonewline $fi1] "\n"]
close $fi1
 
bind pub - !blague bl
proc bl { nick host hand channel arg } {
set vnick [lindex $arg 0]
   set laphrase [lindex $::phrases1 [rand [llength $::phrases1]]]
   putquick "PRIVMSG $::canal :$laphrase"
}

Et, quand je fais !blague dans le salon, rien ne s'affiche et j'ai même pas d'erreur en party line.

J'aimerais savoir d'ou vient l'erreur car je le trouve pas :s

Merci, cordialement.