anchor.diff:              Reason = proplists:get_value(<<"reason">>, Props),
               {{Id, Rev}, {ErrId, Reason}}
           end, ErrorsJson),
  -    case erase(docs_remaining) of
  -    undefined ->
  +    receive
  +    {docs_remaining, 0} ->
           {ok, lists:flatten([ErrorsList|ErrorsAcc])};
  -    MoreDocs ->
  +    {docs_remaining, N} ->
  +        MoreDocs = lists:nthtail(length(Docs)-N, Docs),
           write_docs(Db, MoreDocs, [ErrorsList|ErrorsAcc])
       end;
   write_docs(Db, Docs, _) ->
  
positive.code:         end,
          Parent ! {writer_checkpoint, HighSeq},
          couch_rep_att:cleanup(),
          writer_loop(Parent, Reader, Target)
      end.
  
  
negative.code:     Size = size(Data),
      {Size, [ibrowse_lib:dec2hex(8, Size), "\r\n", Data, "\r\n"]}.
  
  upload_docs({start, W, Docs}) ->
      {Size, Chunk} = make_chunk(<<"{\"new_edits\":false, \"docs\":[">>),
      {ok, Chunk, {continue, W, Docs, "", Size}};
  upload_docs({continue, W, Docs, _, ByteCount}) when ByteCount > ?MAX_BYTES ->
      W ! {docs_remaining, length(Docs)},
      {ok, "2\r\n]}\r\n", last_chunk};
  upload_docs({continue, W, [Doc|Rest], Prepend, ByteCount}) ->
      JsonDoc = ?JSON_ENCODE(couch_doc:to_json_obj(Doc, [revs,attachments])),
      {Size, Chunk} = make_chunk([Prepend, JsonDoc]),
      {ok, Chunk, {continue, W, Rest, ",", ByteCount+Size}};
  upload_docs({continue, W, [], _, _}) ->
      W ! {docs_remaining, 0},
      {ok, "2\r\n]}\r\n", last_chunk};
  upload_docs(last_chunk) ->
      {ok, "0\r\n\r\n", finish};
  upload_docs(finish) ->
      couch_util:should_flush(),
      eof.
      
  writer_loop(Parent, Reader, Target) ->
  