Posted to tcl by patthoyts at Thu Jul 09 22:45:48 GMT 2009view pretty

Index: generic/tclZlib.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclZlib.c,v
retrieving revision 1.28
diff -u -r1.28 tclZlib.c
--- generic/tclZlib.c   6 Jul 2009 21:38:21 -0000       1.28
+++ generic/tclZlib.c   9 Jul 2009 22:41:55 -0000
@@ -1940,7 +1940,7 @@
        switch ((enum zlibFormats) format) {
        case f_deflate:
            mode = TCL_ZLIB_STREAM_DEFLATE;
-           format = TCL_ZLIB_FORMAT_GZIP;
+           format = TCL_ZLIB_FORMAT_RAW;
            break;
        case f_inflate:
            mode = TCL_ZLIB_STREAM_INFLATE;