anchor.diff:  		false ->
   			{reply, {error, not_found}, State, T}
   	end;
  -handle_call({out, Io}, _, State=#?MODULE{classes=OldClasses, interval=T}) ->
  +handle_call({out, Io}, _, State=#?MODULE{dir=Dir, max_bytes=L, classes=OldClasses, interval=T}) ->
   	Classes = case Io of
   				  String when is_list(String) ->
  -					  Prefix = filename:join(State#?MODULE.dir, String),
  -					  [{Class, Current, {Prefix, undefined, undefined}} || {Class, Current, _} <- OldClasses];
  +					  [{Class, Current, {Dir, String, undefined, 0, 0, L, undefined}} || {Class, Current, _} <- OldClasses];
   				  _ ->
   					  [{Class, Current, Io} || {Class, Current, _} <- OldClasses]
   			  end,
   	{reply, ok, State#?MODULE{classes=Classes}, T};
  -handle_call({out, Class, Io}, _, State=#?MODULE{classes=OldClasses, interval=T}) ->
  +handle_call({out, Class, Io}, _, State=#?MODULE{dir=Dir, max_bytes=L, classes=OldClasses, interval=T}) ->
   	case lists:keytake(Class, 1, OldClasses) of
   		{value, {Class, Current, OldIo}, Rest} ->
   			case OldIo of
  
positive.code: 
  update_datelog(Io, _, []) ->
  	Io;
  update_datelog({Prefix, Suffix, File}, Log, [[Suffix | Term] | Rest]) ->
  	print_log(File, Log, [Suffix | Term]),
  	update_datelog({Prefix, Suffix, File}, Log, Rest);
  update_datelog({Prefix, _Suffix, OldFile}, Log, [[Suffix | Term] | Rest]) ->
  	catch file:close(OldFile),
  	{ok, File} = file:open(Prefix++"_"++Suffix++".log", [append]),
  	print_log(File, Log, [Suffix | Term]),
  	update_datelog({Prefix, Suffix, File}, Log, Rest);
  update_datelog(Io, Log, [_ | Rest]) ->
  	update_datelog(Io, Log, Rest).
  
  print_log(Io, Log, [Date, Time, Node, Pid, Tag, Term]) ->
  	catch io:format(Io, "~-8.8s ~s ~s ~p ~p ~p ~1000p~n",
  					[Log, Date, Time, Node, Pid, Tag, Term]);
  print_log(Io, Log, Term) ->
  	catch io:format(Io, "~-8.8s ~1000p~n", [Log, Term]).
  
  dump(Dir, Class, Filename) ->
  	Path = filename:join(Dir, io_lib:format("~s", [Class])),
  
negative.code: 	Classes = lists:foldl(fun({Class, Current}, Acc) ->
  								  case lists:keyfind(Class, 1, List) of
  									  {Class, Out} when is_list(Out) ->
  										  Acc++[{Class, Current, {Dir, Out, undefined, 0, 0, L, undefined}}];
  									  {Class, Out} ->
  										  Acc++[{Class, Current, Out}];
  									  false ->
  