anchor.diff:  uses
     Classes, SysUtils, Rtti
   
  -  , MARS.Core.Attributes
  -  , MARS.Core.Declarations
  -  , MARS.Core.MediaType
  -  , MARS.Core.MessageBodyWriter
  -  , MARS.Core.MessageBodyReader
  -  , MARS.Core.Activation.Interfaces
  -  ;
  +, MARS.Core.Attributes, MARS.Core.Declarations, MARS.Core.MediaType
  +, MARS.Core.MessageBodyWriter, MARS.Core.MessageBodyReader
  +, MARS.Core.Activation.Interfaces
  +;
   
   type
     [Produces(TMediaType.APPLICATION_JSON)]
  
positive.code:   RegisterReadersAndWriters;
  
  end.
  
negative.code:   LJsonBO: TJsonBaseObject;
    LEncoding: TEncoding;
  begin
    if not TMARSMessageBodyWriter.GetDesiredEncoding(AActivation, LEncoding) then
      LEncoding := TEncoding.UTF8;
  
    LJsonBO := AValue.AsObject as TJsonBaseObject;
    if Assigned(LJsonBO) then
  