rendered paste body<xlmpq> .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"