add custom tcl panic proc