Index: openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl,v
diff -u -r1.30.2.26 -r1.30.2.27
--- openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	31 Aug 2022 22:41:12 -0000	1.30.2.26
+++ openacs-4/packages/acs-tcl/tcl/http-client-procs.tcl	26 Nov 2022 16:47:54 -0000	1.30.2.27
@@ -922,7 +922,7 @@
 
     if {$spool_file eq ""} {
         # create the spool file
-        set wfd [file tempfile spool_file [ad_tmpdir]/http-spool-XXXXXX]
+        set wfd [ad_opentmpfile spool_file]
         fconfigure $wfd -translation binary
         
         # flush currently collected payload
@@ -1816,7 +1816,7 @@
     # and let it be read by curl.
     set create_body_file_p [expr {$body_file eq ""}]
     if {$create_body_file_p} {
-        set wfd [file tempfile body_file [ad_tmpdir]/http-spool-XXXXXX]
+        set wfd [ad_opentmpfile body_file http-spool]
         fconfigure $wfd -translation binary
         puts -nonewline $wfd $body
         close $wfd