gustafn
committed
on 12 Jun 18
improve Tcl code