let reset_state w = let oid = Oo.id w in try let (evid,state) = Hashtbl.find states_table oid in Hashtbl.replace states_table oid (evid, []) with Not_found -> ()