object-unpublish.tcl