anchor.diff:      {ok, Opts0} = mango_opts:validate_find(chttpd:json_body_obj(Req)),
       {value, {selector, Sel}, Opts} = lists:keytake(selector, 1, Opts0),
       {ok, Resp0} = start_find_resp(Req),
  -    {ok, {Resp1, _, KVs}} = run_find(Resp0, Db, Sel, Opts),
  -    end_find_resp(Resp1, KVs);
  +    {ok, AccOut} = run_find(Resp0, Db, Sel, Opts),
  +    end_find_resp(AccOut);
   
   handle_find_req(Req, _Db) ->
       chttpd:send_method_not_allowed(Req, "POST").
  
positive.code: 
  
  run_find(Resp, Db, Sel, Opts) ->
      mango_crud:find(Db, Sel, fun handle_doc/2, {Resp, "\r\n", []}, Opts).
  
  
  handle_doc({add_key, Key, Value}, {Resp, Prepend, KVs}) ->
      NewKVs = lists:keystore(Key, 1, KVs, {Key, Value}),
      {ok, {Resp, Prepend, NewKVs}};
  handle_doc({row, Doc}, {Resp0, Prepend, KVs}) ->
      Chunk = [Prepend, ?JSON_ENCODE(Doc)],
      {ok, Resp1} = chttpd:send_delayed_chunk(Resp0, Chunk),
      {ok, {Resp1, ",\r\n", KVs}}.
  
negative.code:     chttpd:start_delayed_json_response(Req, 200, [], "{\"docs\":[").
  
  
  end_find_resp(Acc) ->
      #vacc{resp=Resp0, kvs=KVs} = Acc,
      FinalAcc = lists:foldl(fun({K, V}, Acc) ->
          JK = ?JSON_ENCODE(K),
          JV = ?JSON_ENCODE(V),
  