[Xotcl] destroy invoked by object move?