Anonymous

proc error {args} {
putlog "Tcl: $::tcl_patchLevel on $::tcl_platform(os) $::tcl_platform(osVersion)"
putlog "Message:"
foreach line [split $::errorInfo "\n"] {putlog $line}
}