anchor.diff:          _ -> infinity
       end.
   
  +%% in event of a partially successful write.
  +reset_eof(#file{} = File) ->
  +    {ok, Eof} = file:position(File#file.fd, eof),
  +    File#file{eof = Eof}.
  +
   -ifdef(TEST).
   -include_lib("couch/include/couch_eunit.hrl").
   
  
positive.code:     ok ->
          {reply, {ok, Pos, Size}, File#file{eof = Pos + Size}};
      Error ->
          {reply, Error, File}
      end;
  
  handle_call({write_header, Bin}, _From, #file{fd = Fd, eof = Pos} = File) ->
  
negative.code:     ok ->
          {reply, ok, File#file{eof = Pos + iolist_size(FinalBin)}};
      Error ->
          {reply, Error, reset_eof(File)}
      end;
  
  handle_call(find_header, _From, #file{fd = Fd, eof = Pos} = File) ->
  