anchor.diff:  	      Res when is_list(Res) ->
   		  list_to_binary(Res)
   	  end,
  +    Tag = io_lib:format("~p~p:", [Level, Pid]),
       %% The 10 is the trailing linefeed
  -    concat_binary([BinTag, Msg, 10]).
  +    list_to_binary([TimeStamp, 32, Tag, Msg, 10]).
  
positive.code: log(Level, Format, Arguments) when is_atom(Level), is_list(Format),
  				   is_list(Arguments) ->
      do_log(Level, Format, Arguments).
  
  %%--------------------------------------------------------------------
  %% Function: quit(Msg)
  
negative.code:     file:write(IoDevice, Data).
  
  log_to_stdout(Data) ->
      try
  	io:put_chars(Data)
      catch
  	exit: {ebadf, _} ->
  	    %% When our supervisor shuts down it's children, we will loose
  	    %% our ability to log to stdout before we are shut down, when
  	    %% we are logging other processes shutdowns and the logger
  	    %% process will in fact crash, diverting attention from the
  	    %% real reason for shutdown. We therefor need to ignore 'ebadf'
  	    %% errors :(
  	    ok
      end.
  
  %%--------------------------------------------------------------------
  %% Function: create_filename_time_suffix()
  %% Descrip.: Return a date string (european style) suitable for
  %%           appending to a filename when rotating it.
  %% Returns : string()
  