Index: openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl,v
diff -u -r1.3.2.1 -r1.3.2.2
--- openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	9 Dec 2019 11:03:18 -0000	1.3.2.1
+++ openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	2 Aug 2021 21:12:26 -0000	1.3.2.2
@@ -22,6 +22,14 @@
     ::puts -nonewline $F $content
     ::close $F
   }
+
+  proc write_tmp_file {varFilename content} {
+    upvar $varFilename tmpFileName
+    set F [file tempfile tmpFileName]
+    fconfigure $F -translation binary -encoding binary
+    puts -nonewline $F $content
+    close $F
+  }
 }
 
 #