object-copy-3.tcl