anchor.diff:      gen_server:start_link({local, couch_server}, couch_server, [], []).
   
   open(DbName, Options) ->
  -    case gen_server:call(couch_server, {open, DbName, Options}) of
  +    case gen_server:call(couch_server, {open, DbName, Options}, infinity) of
       {ok, Db} ->
           Ctx = proplists:get_value(user_ctx, Options, #user_ctx{}),
           {ok, Db#db{user_ctx=Ctx}};
  
positive.code:     end.
  
  delete(DbName, Options) ->
      gen_server:call(couch_server, {delete, DbName, Options}).
  
  check_dbname(#server{dbname_regexp=RegExp}, DbName) ->
      case re:run(DbName, RegExp, [{capture, none}]) of
  
negative.code:     end.
  
  create(DbName, Options) ->
      case gen_server:call(couch_server, {create, DbName, Options}, infinity) of
      {ok, Db} ->
          Ctx = proplists:get_value(user_ctx, Options, #user_ctx{}),
          {ok, Db#db{user_ctx=Ctx}};
  