Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.57.2.24 -r1.57.2.25
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	28 Jun 2021 19:46:02 -0000	1.57.2.24
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	2 Aug 2021 21:23:20 -0000	1.57.2.25
@@ -41,8 +41,9 @@
         && [info commands ::util::which] ne ""} {
       set tidycmd [::util::which tidy]
       if {$tidycmd ne ""} {
-        set in_file [ad_tmpnam]
-        ::xo::write_file $in_file $text
+
+        ::xo::write_tmp_file in_file $text
+
         catch {exec $tidycmd -q -w 0 -ashtml < $in_file 2> /dev/null} output
         file delete -- $in_file
         #:msg o=$output