method subdirs s =
      List.filter (fun s ->  Filename.basename s <> "CVS") (base#subdirs s)