Update debug.tcl