Update to xtcl scripts