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