anchor.diff:      procedure (Output : ILogOutput)
       begin
         Output.EndSection(Msg);
  -    end
  +    end,
  +    liSection
     );
   end;
   
  
positive.code:       begin
          if Severity >= Output.SeverityThreshold then
            Output.WriteMessage(Severity, Msg);
        end
      );
  end;
  
  
negative.code:     procedure (Output : ILogOutput)
      begin
        Output.BeginSection(Msg);
      end,
      liSection
    );
  end;
  
  