anchor.diff:        begin
           if Severity >= Output.SeverityThreshold then
             Output.WriteMessage(Severity, Msg);
  -      end
  +      end,
  +      liMessage
       );
   end;
   
  
positive.code:   EnterSection(Format(Msg, Args));
  end;
  
  procedure TBaseLogger.IterateOutputs(const Action : TProc<ILogOutput>);
  var
    Output : ILogOutput;
  begin
    if Enabled then
      try
        for Output in Outputs.LockList do
          Action(Output);
      finally
        Outputs.UnlockList;
      end;
  end;
  
  procedure TBaseLogger.LeaveSection(const Msg : String);
  
negative.code:     procedure (Output : ILogOutput)
      begin
        Output.EndSection(Msg);
      end,
      liSection
    );
  end;
  
  