[Xotcl] make segmentation fault