object-new.tcl