modified:   measure/measure.tcl