anchor.diff:        end;
       end;
   
  -    tkArray,
  +    tkArray:
  +    begin
  +      Result := WriteArray(AValue);
  +    end;
  +
       tkDynArray:
       begin
         Result := WriteArray(AValue);
  
positive.code: function TNeonDeserializerJSON.ReadDataMember(AJSONValue: TJSONValue; AType:
      TRttiType; const AData: TValue): TValue;
  begin
    case AType.TypeKind of
      // Simple types
      tkInt64:       Result := ReadInt64(AJSONValue, AType);
  
negative.code: begin
    Result := nil;
    LObject := AValue.AsObject;
  
    if not Assigned(LObject) then
      Exit(TJSONNull.Create);
  
    LStreamable := TDynamicStream.GuessType(LObject);
    if Assigned(LStreamable) then
  