anchor.diff:      #message_log{format  = Format,
                    message = Message} = Log,
       FormattedMessage =
  -        case catch io_lib:format(Format, Message) of
  +        case catch lager_format:format(Format, Message, ?MAX_MSG_BODY_LEN) of
               {'EXIT', _} -> [];
               NewMessage  -> NewMessage
           end,
  
positive.code:                            function = Function,
                             line     = Line,
                             message  = Message}) ->
      case catch io_lib:format("[~s]\t~s\t~s\t~w\t~s:~s\t~s\t~s\r\n",
                               [log_level(Level),
                                atom_to_list(node()),
                                leo_date:date_format(type_of_now, now()),
                                unixtime(),
                                Module, Function, integer_to_list(Line),
                                Message]) of
          {'EXIT', _Cause} ->
              [];
          Result ->
  
negative.code: -define(LOG_FILE_NAME_ERROR, "error").
  -define(LOG_GROUP_INFO,      'log_group_message_info').
  -define(LOG_GROUP_ERROR,     'log_group_message_error').
  -define(MAX_MSG_BODY_LEN,    4096).
  
  %%--------------------------------------------------------------------
  %% API
  