anchor.diff:  			file:close(IoDevice),
   			{error, Reason};
   		{NextCont, Terms} ->
  -			file_chunk1(Log, IoDevice, NextCont, Terms)
  -	end.
  -%% @hidden
  -file_chunk1(Log, IoDevice, Cont, [Event | T]) ->
  +			file_chunk1(Log, IoDevice, Type, NextCont, Terms)
  +	end.
  +%% @hidden
  +file_chunk1(Log, IoDevice, tuple, Cont, [Event | T]) ->
   	case io:fwrite(IoDevice, "~999p~n", [Event]) of
   		ok ->
  -			file_chunk1(Log, IoDevice, Cont, T);
  +			file_chunk1(Log, IoDevice, tuple, Cont, T);
   		{error, Reason} ->
   			error_logger:error_report([file:format_error(Reason),
   					{module, ?MODULE}, {log, Log}, {error, Reason}]),
   			file:close(IoDevice),
   			{error, Reason}
   	end;
  -file_chunk1(Log, IoDevice, Cont, []) ->
  -	file_chunk(Log, IoDevice, Cont).
  +file_chunk1(Log, IoDevice, binary, Cont, [Event | T]) ->
  +	case file:write(IoDevice, Event) of
  +		ok ->
  +			file_chunk1(Log, IoDevice, binary, Cont, T);
  +		{error, Reason} ->
  +			error_logger:error_report([file:format_error(Reason),
  +					{module, ?MODULE}, {log, Log}, {error, Reason}]),
  +			file:close(IoDevice),
  +			{error, Reason}
  +	end;
  +file_chunk1(Log, IoDevice, Type, Cont, []) ->
  +	file_chunk(Log, IoDevice, Type, Cont).
   
   -spec start_binary_tree(Log, Start, End) -> Result
   	when
  
positive.code: dump_file(Log, FileName) when is_list(FileName) ->
  	case file:open(FileName, [write]) of
  		{ok, IoDevice} ->
  			file_chunk(Log, IoDevice, start);
  		{error, Reason} ->
  			error_logger:error_report([file:format_error(Reason),
  					{module, ?MODULE}, {log, Log}, {error, Reason}]),
  
negative.code: %%----------------------------------------------------------------------
  
  %% @hidden
  file_chunk(Log, IoDevice, Type, Cont) ->
  	case disk_log:chunk(Log, Cont) of
  		eof ->
  			file:close(IoDevice);
  