gustafn
committed
on 07 Oct 19
modernize Tcl code