*** http-old.tcl	Mon Jan 24 11:13:09 2011
--- http.tcl	Mon Jan 24 11:12:57 2011
***************
*** 316,321 ****
--- 316,322 ----
      array set state {
  	-binary		false
  	-blocksize	8192
+ 	-compress	1
  	-queryblocksize 8192
  	-validate	0
  	-headers	{}
***************
*** 347,357 ****
  	-strict		boolean
  	-timeout	integer
  	-validate	boolean
      }
      set state(charset)	$defaultCharset
      set options {
! 	-binary -blocksize -channel -command -handler -headers -keepalive
! 	-method -myaddr -progress -protocol -query -queryblocksize
  	-querychannel -queryprogress -strict -timeout -type -validate
      }
      set usage [join [lsort $options] ", "]
--- 348,359 ----
  	-strict		boolean
  	-timeout	integer
  	-validate	boolean
+ 	-compress	boolean
      }
      set state(charset)	$defaultCharset
      set options {
! 	-binary -blocksize -channel -command -compress -handler -headers 
! 	-keepalive -method -myaddr -progress -protocol -query -queryblocksize
  	-querychannel -queryprogress -strict -timeout -type -validate
      }
      set usage [join [lsort $options] ", "]
***************
*** 695,701 ****
  	}
  	# Soft zlib dependency check - no package require
          if {
! 	    !$accept_encoding_seen &&
  	    ([package vsatisfies [package provide Tcl] 8.6]
  		|| [llength [package provide zlib]]) &&
  	    !([info exists state(-channel)] || [info exists state(-handler)])
--- 697,703 ----
  	}
  	# Soft zlib dependency check - no package require
          if {
! 	    !$accept_encoding_seen && $state(-compress) &&
  	    ([package vsatisfies [package provide Tcl] 8.6]
  		|| [llength [package provide zlib]]) &&
  	    !([info exists state(-channel)] || [info exists state(-handler)])
