anchor.diff:    Response.HeaderFields['X-Powered-By'] := 'WiRL';
   end;
   
  -{ TResponseGzipFilter }
  +{ TResponseEncodingFilter }
   
  -procedure TResponseGzipFilter.Filter(Request: TWiRLRequest; Response: TWiRLResponse);
  +procedure TResponseEncodingFilter.Filter(Request: TWiRLRequest; Response: TWiRLResponse);
   var
     LStrStream: TStringStream;
     LMemStream: TMemoryStream;
  
positive.code:   end;
  
  begin
    if Request.AcceptEncoding.Contains('gzip') then
    begin
      if Assigned(Response.ContentStream) then
      begin
  
negative.code:       finally
          LStrStream.Free;
        end;
        Response.ContentEncoding := ENC_DEFLATE;
      end;
    end;
  end;
  