[Xotcl] Object destruction on exit