anchor.diff:    end;
   
     [ContentEncoding]
  -  TResponseGzipFilter = class(TInterfacedObject, IWiRLContainerResponseFilter)
  +  TResponseEncodingFilter = class(TInterfacedObject, IWiRLContainerResponseFilter)
  +  private
  +    const ENC_DEFLATE = 'deflate';
  +    const ENC_GZIP = 'gzip';
  +    const END_IDENT = 'identity';
     public
       procedure Filter(Request: TWiRLRequest; Response: TWiRLResponse);
     end;
  
positive.code:   end;
  
  begin
    if Request.AcceptEncoding.Contains('gzip') then
    begin
      if Assigned(Response.ContentStream) then
      begin
  
negative.code:   Response.HeaderFields['X-Powered-By'] := 'WiRL';
  end;
  
  { TResponseEncodingFilter }
  
  procedure TResponseEncodingFilter.Filter(Request: TWiRLRequest; Response: TWiRLResponse);
  var
    LStrStream: TStringStream;
    LMemStream: TMemoryStream;
  