There might be an easier way but here’s what I use:
set newnum “000000”
set newnum [append newnum [lindex $xlateInVals 0]]
set newnum [string range $newnum [expr [string length $newnum] -6] [expr [string length $newnum] – 1]]
set xlateOutVals [lreplace $xlateOutVals 0 0
