let rcs_revision rev archive =
  let temp_file = Filename.temp_file "ocamlcvs" "rcs" in
  let com =
    "co -p -r"^(Ocvs_revision.string_of_revision_number rev.rev_number)^" "^
    (Filename.quote archive)^" > "^temp_file
  in
  let n = Sys.command com in
  if n = 0 then
    temp_file
  else
    (
     delete_file temp_file ;
     raise (Failure (Ocvs_messages.error_exec com))
    )