anchor.diff:  %%
   
   with_db(DbName, Options, {M,F,A}) ->
  -    erlang:put(io_priority, {interactive, DbName}),
  +    set_io_priority(DbName, Options),
       case couch_db:open(DbName, Options) of
       {ok, Db} ->
           rexi:reply(try
  
positive.code: -module(fabric_rpc).
  
  -export([get_db_info/1, get_doc_count/1, get_update_seq/1]).
  -export([open_doc/3, open_revs/4, get_missing_revs/2, update_docs/3]).
  -export([all_docs/2, changes/3, map_view/4, reduce_view/4, group_info/2]).
  -export([create_db/1, delete_db/2, reset_validation_funs/1, set_security/3,
      set_revs_limit/3, create_shard_db_doc/2]).
  
negative.code: clean_stack() ->
      lists:map(fun({M,F,A}) when is_list(A) -> {M,F,length(A)}; (X) -> X end,
          erlang:get_stacktrace()).
  
  set_io_priority(DbName, Options) ->
      case lists:keyfind(io_priority, 1, Options) of
      {io_priority, Pri} ->
          erlang:put(io_priority, Pri);
      false ->
          erlang:put(io_priority, {interactive, DbName})
      end.
  