anchor.diff:      end.
   
   %%--------------------------------------------------------------------
  -%% Function: log_to_device(IoDevice, Level, TimeStamp, Format, Arguments, Pid)
  +%% Function: log_to_device(IoDevice, Level, TimeStamp, Format,
  +%%                         Arguments, Pid)
   %%           log_to_stdout(Level, TimeStamp, Format, Arguments, Pid)
   %%           Level, TimeStamp, Pid = used to identify the message
  -%%           Format, Arguments = used by io:format
  -%%           IoDevice = where to send io:format out put (a file)
  +%%           Format, Arguments = used by io:format()
  +%%           IoDevice = where to send io:format() output (a file
  +%%                      descriptor)
   %% Descrip.: log a message
   %% Returns : -
   %% Note    : catch is used to ensure that formating error in io:format
   %%           calls are logged - they may otherwise simply crash the
  -%%           logger with out feedback, if the logger is run without
  +%%           logger without feedback, if the logger is run without
   %%           a erlang shell to look at
   %%--------------------------------------------------------------------
   log_to_device(IoDevice, Data) ->
  
positive.code: %%====================================================================
  
  %%--------------------------------------------------------------------
  %% Function: init/1
  %% Description: Initiates the server
  %% Returns: {ok, State}          |
  %%          {ok, State, Timeout} |
  %%          ignore               |
  %%          {stop, Reason}
  %%--------------------------------------------------------------------
  init([Basename]) ->
      %% Check if we should rotate log files when they reach a upper
  
negative.code: 				   is_list(Arguments) ->
      do_log(Level, Format, Arguments).
  
  %%--------------------------------------------------------------------
  %% Function: log_iolist(Level, IOlist)
  %%           Level  = normal | debug | error
  %%           IOlist = I/O list
  %% Descrip.: Log a log entry, without formatting the data in any way
  %%           (except adding the timestamp-pid-level prefix).
  %% Returns : ok
  %%--------------------------------------------------------------------
  log_iolist(Level, IOlist) when is_atom(Level) ->
      LogTS = get_ts(now()),
      L = atom_to_list(Level),
  