anchor.diff:  var
     vResponse: string;
   begin
  -  if Adapter = nil then
  -    raise Exception.Create('Entity can not be null');
  -
  -  SetContent(Adapter.UnWrapList);
  +  if Adapter <> nil then
  +    SetContent(Adapter.UnWrapList);
   
     vResponse := FRestClient.DoRequest(METHOD_POST, Self);
  -
  -  Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
  +  if trim(vResponse) <> '' then
  +    Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
   end;
   
   function TResource.Put(Adapter: IJsonListAdapter): TObject;
   var
     vResponse: string;
   begin
  -  if Adapter = nil then
  -    raise Exception.Create('Entity can not be null');
  -
  -  SetContent(Adapter.UnWrapList);
  +  if Adapter <> nil then
  +    SetContent(Adapter.UnWrapList);
   
     vResponse := FRestClient.DoRequest(METHOD_PUT, Self);
  -
  -  Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
  +  if trim(vResponse) <> '' then
  +    Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
   end;
   
   function TResource.Patch(Adapter: IJsonListAdapter): TObject;
   var
     vResponse: string;
   begin
  -  if Adapter = nil then
  -    raise Exception.Create('Entity can not be null');
  -
  -  SetContent(Adapter.UnWrapList);
  +  if Adapter <> nil then
  +    SetContent(Adapter.UnWrapList);
   
     vResponse := FRestClient.DoRequest(METHOD_PATCH, Self);
  -
  -  Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
  +  if trim(vResponse) <> '' then
  +    Result := TOldRttiUnMarshal.FromJsonArray(Adapter.UnWrapList.ClassType, Adapter.ItemClass, vResponse);
   end;
   {$ENDIF}
   
  
positive.code: var
    vResponse: string;
  begin
    if Entity = nil then
      raise Exception.Create('Entity can not be null');
  
    SetContent(Entity);
  
    vResponse := FRestClient.DoRequest(METHOD_PATCH, Self);
  
    Result := TJsonUtil.UnMarshal(Entity.ClassType, vResponse);
  end;
  
  function TResource.Patch(Content: string): string;
  
negative.code: 
    vResponse := FRestClient.DoRequest(METHOD_POST, Self);
  
    if trim(vResponse) <> '' then
      Result := TJsonUtil.UnMarshal<T>(vResponse);
  end;
  
  function TResource.Put<T>(Entity: TObject): T;
  