.tcl return $errorInfo <(Alexandrion> Tcl error: wrong # args: should be "foreach varList list ?varList list ...? command" <(Alexandrion> Tcl error: while compiling <(Alexandrion> Tcl error: "foreach i $arw { <(Alexandrion> Tcl error: if {[lsearch -exact [string tolower [channels]] [string tolower $i]] != -1} { <(Alexandrion> Tcl error: if {[lindex $random_welcome([string..." <(Alexandrion> Tcl error: ("if" else script line 4) <(Alexandrion> Tcl error: while compiling <(Alexandrion> Tcl error: "if {[info exists setwelcome([string tolower $chan])] && [lindex $setwelcome([string tolower $chan]) 0] != ""} { <(Alexandrion> Tcl error: set i $setwelcome([string tolower ..." <(Alexandrion> Tcl error: ("if" then script line 2) <(Alexandrion> Tcl error: while compiling <(Alexandrion> Tcl error: "if [channel get $chan welcome] { <(Alexandrion> Tcl error: if {[info exists setwelcome([string tolower $chan])] && [lindex $setwelcome([string tolower $chan]) 0] != ""} { <(Alexandrion> Tcl error: ..." <(Alexandrion> Tcl error: ("if" then script line 2) <(Alexandrion> Tcl error: while compiling <(Alexandrion> Tcl error: "if {$botnick != $nick} { <(Alexandrion> Tcl error: if [channel get $chan welcome] { <(Alexandrion> Tcl error: if {[info exists setwelcome([string tolower $chan])] && [lindex $setwelcome([string tolo..." <(Alexandrion> Tcl error: (compiling body of proc "set_welcome", line 4) <(Alexandrion> Tcl error: invoked from within <(Alexandrion> Tcl error: "set_welcome $_jp1 $_jp2 $_jp3 $_jp4"