object-publish-2.tcl