let commit_dir ?(comment="") dir =
  let com = Printf.sprintf "cd %s ; cvs commit %s -m %s "
      (Filename.quote dir)
      !Ocvs_config.commit_options
      (Filename.quote comment)
  in
  let n = Sys.command com in
  if n = 0 then
    ()
  else
    raise (Ocvs_types.CvsFailure (Ocvs_messages.error_exec com))