[Xotcl] Dynamic dispatch and subclasses