method update_element ci =
      let rec iter = function
          [] ->
            [ci]
        | t :: q when t.Ocvs_types.cvs_file = ci.Ocvs_types.cvs_file ->
            ci :: q
        | t :: q ->
            t :: (iter q)
      in
      elements <- iter elements