object-unarchive.tcl