define-new-category.tcl