anchor.diff:      with_db(DbName, Options, {couch_db, open_doc_revs, [Id, Revs, Options]}).
   
   get_missing_revs(DbName, IdRevsList) ->
  +    get_missing_revs(DbName, IdRevsList, []).
  +
  +get_missing_revs(DbName, IdRevsList, Options) ->
       % reimplement here so we get [] for Ids with no missing revs in response
  -    erlang:put(io_priority, {interactive, DbName}),
  +    set_io_priority(DbName, Options),
       rexi:reply(case couch_db:open(DbName, []) of
       {ok, Db} ->
           Ids = [Id1 || {Id1, _Revs} <- IdRevsList],
  
positive.code: clean_stack() ->
      lists:map(fun({M,F,A}) when is_list(A) -> {M,F,length(A)}; (X) -> X end,
          erlang:get_stacktrace()).
  
negative.code: %%
  
  with_db(DbName, Options, {M,F,A}) ->
      set_io_priority(DbName, Options),
      case couch_db:open(DbName, Options) of
      {ok, Db} ->
          rexi:reply(try
  