Index: openacs-4/packages/acs-subsite/www/shared/1pixel.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/1pixel.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/shared/1pixel.tcl	7 Aug 2017 23:47:59 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/shared/1pixel.tcl	3 Sep 2024 15:37:34 -0000	1.8
@@ -12,7 +12,7 @@
     b:integer
 }
 
-ReturnHeaders "image/gif"
+util_return_headers "image/gif"
 
 if { [catch {
     set file [open [acs_package_root_dir "acs-subsite"]/www/shared/1pixel.header]
@@ -23,9 +23,8 @@
     # insist on UTF8-encoding it). So we write to a file, then dump
     # the file's contents.
 
-    set file_name [ad_tmpnam]
+    set file [file tempfile file_name]
     ns_log "Notice" "logging to $file_name"
-    set file [open $file_name w+]
     fconfigure $file -encoding binary -translation binary
     puts -nonewline $file [format "%c%c%c" $r $g $b]
     seek $file 0