fixed sim.tcl