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.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	3 Sep 2024 15:37:54 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/utilities-procs.tcl	1 Oct 2024 12:40:25 -0000	1.5
@@ -18,15 +18,15 @@
 
   proc write_file {fn content} {
     set F [::open $fn w]
-    ::fconfigure $F -translation binary -encoding binary
+    ::fconfigure $F -translation binary
     ::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
+    fconfigure $F -translation binary
     puts -nonewline $F $content
     close $F
   }