gustafn
committed
on 07 Oct
modernize Tcl code