Update Generator.tcl

do while -> do until for clearness