anchor.diff:  %% Returns : list() of atom()
   %%--------------------------------------------------------------------
   needs_rotating(In, Size, State) when record(State, state) ->
  -    Fun = fun(H, Acc) -> 
  -		Fn = level2filename(H, State),
  -		case file:read_file_info(Fn) of
  -		    {ok, FileInfo} when FileInfo#file_info.size > Size ->
  -			%% file_info record returned, and size is larger than Size
  -			logger:log(debug, "Logger: Rotating '~p' logfile ~p since it is larger than ~p bytes (~p)",
  -				   [H, Fn, Size, FileInfo#file_info.size]),
  -			[H | Acc];
  -		    %% Either error returned from read_file_info, or file size is within limits.
  -		    %% We don't check (care) which one... check next file in list.
  -		    %%
  -		    %% XXX is this a good idea ? the files should not be unreadable ! 
  -		    %% should we throw some kind of error ?
  -		    %% at least it is true that we don't know if the files need rotating.
  -		    _ ->
  -			Acc
  -		end
  -	end,
  +    Fun = fun(H, Acc) ->
  +		  Fn = level2filename(H, State),
  +		  case file:read_file_info(Fn) of
  +		      {ok, FileInfo} when FileInfo#file_info.size > Size ->
  +			  %% file_info record returned, and size is larger than Size
  +			  logger:log(debug, "Logger: Rotating '~p' logfile ~p since it is larger than ~p bytes (~p)",
  +				     [H, Fn, Size, FileInfo#file_info.size]),
  +			  [H | Acc];
  +		      _ ->
  +			  %% Either error returned from read_file_info, or file size is within limits.
  +			  %% We don't check (care) which one... check next file in list.
  +			  %%
  +			  %% XXX is this a good idea ? the files should not be unreadable !
  +			  %% should we throw some kind of error ?
  +			  %% at least it is true that we don't know if the files need rotating.
  +			  Acc
  +		  end
  +	  end,
       lists:foldl(Fun, [], In).
   
   
   %% return {ok, State} | {{error, Str}, State}
  -%% stop processing after the first error encountered 
  +%% stop processing after the first error encountered
   %% XXX process all log files, even if some fail?
   rotate([], _Suffix, State) when record(State, state) ->
       {ok, State};
  
positive.code: 
  %%--------------------------------------------------------------------
  %% Function: handle_call(Msg, From, State)
  %%           Msg = {rotate_logs}               | 
  %%                 {rotate_logs, Suffix}       |
  %%                 {rotate_logs, Suffix, Logs} |
  %%                 {quit}                           quit logger
  %%           Suffix = string(), log date suffix to use, 
  %%                              default = current time
  %%           Logs = atom(), logs to update, default = all logs
  %% Descrip.: Handling call messages
  
negative.code: %% do_log is executed in caller pid (by log/2 or log/3), not in
  %% persistent logger process.
  do_log(Level, Format, Arguments) when is_atom(Level), is_list(Format), is_list(Arguments) ->
      %%				      Level == debug; Level == normal; Level == error ->
      {Megasec, Sec, USec} = now(),
      USecStr = format_usec(USec, 3),
      DateTime = util:sec_to_date(Megasec * 1000000 + Sec),
  