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