renamed curr_prog