anchor.diff:        finally
           LStrStream.Free;
         end;
  -      AResponseContext.Response.ContentEncoding := ENC_DEFLATE;
  +      AResponseContext.Response.ContentEncoding := LContentEncoding;
       end;
     end;
   end;
  
positive.code:   end;
  
    /// <summary>
    ///   HTTP Response filter. If the request has the "deflate" encoding in the Accept-Encoding header
    ///   this filter compresses the body stream
    /// </summary>
    /// <remarks>
    ///   Only the "deflate" ContentEncoding is supported
    /// </remarks>
    [ContentEncoding, Compression]
    TResponseEncodingFilter = class(TCompressionFilter, IWiRLContainerResponseFilter)
  
negative.code:       try
          LMemStream := TMemoryStream.Create;
          try
            DoCompress(LStrStream, LMemStream, LContentEncoding);
            LMemStream.Position := soFromBeginning;
            AResponseContext.Response.Content := '';
            AResponseContext.Response.ContentStream := LMemStream;
  