Fix the new tool/cp.tcl so that it works with older TCL versions, such as

jimtcl.

FossilOrigin-Name: 61f18c96183867fe9d0fb30b8b71c0253f40503e32c8a4202196fb6418f2f46e