method elements dir =
      List.filter
        (fun ci ->
          (Filename.dirname ci.Ocvs_types.cvs_file) = dir)
        elements