This procedure is defined in the server but not documented via ad_proc or proc_doc and may be intended as a private interface.
The procedure is defined as:
proc dom::PutHandle {token varName} {
upvar 1 $varName data
set $token [array get data]
return {}
}