01
02
03
04
05
06
07
08
09
10

if {![info exists ::errortracer]} { set ::errortracer 1; trace add variable ::errorInfo write redirecterror }
proc redirecterror {n1 n2 op} {
    set ::olddblvalue ${::double-help}
    set ::double-help 0
    foreach line [split $::errorInfo \n] {
        puthelp "PRIVMSG #debug :$line"
    }
    set ::double-help $::olddblvalue
}