anchor.diff:      Procedure GrowToIndex(index : Integer);
       function GetItemOfType(Index: Integer; DataClass:TPCJSONDataClass): TPCJSONData;
     protected
  -    Function ToJSONFormatted(pretty:Boolean;const prefix : AnsiString) : AnsiString; override;
  +    Function ToJSONFormatted(pretty:Boolean;const prefix : String) : String; override;
     public
       Constructor Create; override;
       Constructor CreateFromJSONArray(JSONArray : TJSONArray);
  
positive.code:   FFreeValue := true;
  end;
  
  function TPCJSONNameValue.ToJSONFormatted(pretty: Boolean; const prefix: AnsiString): AnsiString;
  begin
    if pretty then Result := prefix else Result := '';
    Result := Result + UTF8JSONEncode(name,true)+':'+Value.ToJSONFormatted(pretty,prefix+'   ');
  
negative.code: Var i : Integer;
    NV : TPCJSONNameValue;
    JSOND : TPCJSONData;
    s : String;
  begin
    if Not Assigned(PCJSONData) then Abort;
    if (PCJSONData is TPCJSONObject) AND (Self is TPCJSONObject) then begin
  