package ifneeded tolsh   1.0 [list source [file join $dir tolsh.tcl]]