change 1 in gen_tcl_sys