Reowork of set_term