[Xotcl] Problem with slots and moving objects