Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.189.2.31 -r1.189.2.32
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	7 Nov 2019 13:11:35 -0000	1.189.2.31
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	7 Nov 2019 15:23:25 -0000	1.189.2.32
@@ -4389,15 +4389,15 @@
             # as well.
             #
             if {$gzip ne ""} {
-                # By default gzip would delete the original
-                # file. Versions >= 1.6 would support the -k flag to
-                # keep it, but as installations around might ship with
-                # older versions we mimick this behavior in tcl.
-                set tmpfile [ad_tmpnam]
-                file copy -- $local_path/$file $tmpfile
-                # exec $gzip -9 -k $local_path/$file
-                exec $gzip -9 $local_path/$file
-                file rename -- $tmpfile $local_path/$file
+                #
+                # Recent versions of gzip (starting with gzip 1.6,
+                # released 2013) should use:
+                #
+                #      exec $gzip -9 -k $local_path/$file
+                #
+                # For backwards compatibility, we use redirects.
+                #
+                exec $gzip -9 < $local_path/$file > $local_path/$file.gz
             }
         }