[Xotcl] Testing for execution inside object