anchor.diff:  
   open_async(Server, From, DbName, Filepath, Options) ->
       Parent = self(),
  -    put({async_open, DbName}, now()),
       Opener = spawn_link(fun() ->
           Res = couch_db:start_link(DbName, Filepath, Options),
           gen_server:call(Parent, {open_result, DbName, Res}, infinity),
  
positive.code:     % icky hack of field values - compactor_pid used to store clients
      [#db{fd=ReqType, compactor_pid=Froms}=Db] = ets:lookup(couch_dbs, DbName),
      [gen_server:reply(From, Error) || From <- Froms],
      ?LOG_INFO("open_result error ~p for ~s", [Error, DbName]),
      true = ets:delete(couch_dbs, DbName),
      NewServer = case ReqType of
          {create, DbName, Filepath, Options, CrFrom} ->
  
negative.code:     {reply, {ok, Server}, Server};
  handle_call({open_result, DbName, {ok, Db}}, _From, Server) ->
      link(Db#db.main_pid),
      % icky hack of field values - compactor_pid used to store clients
      % and fd used to possibly store a creation request
      [#db{fd=ReqType, compactor_pid=Froms}] = ets:lookup(couch_dbs, DbName),
  