let create_and_add_dir dir = try Unix.mkdir dir 0o755; add_dir dir with Unix.Unix_error (e, s1, s2) -> let s = Unix.error_message e in raise (Ocvs_types.CvsFailure (Ocvs_messages.error_mkdir dir s))