updated to match other changes in xxximpl.tcl