Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.106.2.28 -r1.106.2.29
--- openacs-4/packages/xotcl-core/xotcl-core.info	12 Jun 2021 18:00:33 -0000	1.106.2.28
+++ openacs-4/packages/xotcl-core/xotcl-core.info	2 Aug 2021 21:12:26 -0000	1.106.2.29
@@ -10,7 +10,7 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="5.10.0d40" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d40.apm">
+    <version name="5.10.0d41" url="http://media.wu-wien.ac.at/download/xotcl-core-5.10.0d41.apm">
 	<owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
 	<summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
 	<release-date>2017-08-06</release-date>
@@ -42,7 +42,7 @@
 	<license>BSD-Style</license>
 	<maturity>2</maturity>
 
-	<provides url="xotcl-core" version="5.10.0d40"/>
+	<provides url="xotcl-core" version="5.10.0d41"/>
 	<requires url="acs-kernel" version="5.10.0d11"/>
 	<requires url="acs-templating" version="5.9.1"/>
 	<requires url="acs-api-browser" version="5.9.1"/>
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
+  }
 }
 
 #