anchor.diff:      property Current: TJSONValue read GetCurrent;
     end;
   {$endif}
  -  TJSONArrayHelper = class helper for TJSONArray
  +
  +  TJSONArrayHelper= class helper for TJSONArray
     private
       {$ifndef DelphiXE6_UP}
       function GetCount: Integer; inline;
  
positive.code:       begin
          LValue := LField.GetValue(ARecord.GetReferenceToRawData);
  
          WriteTValue(LJSONName, LValue);
        end;
      end;
    end;
  
negative.code: 
    else if (AValue.Kind in [tkRecord]) then
      Result := TJSONObject.RecordToJSON(AValue)
  
    else if (AValue.IsType<Boolean>) then
      Result := BooleanToTJSON(AValue.AsType<Boolean>)
  