new-bug.tcl