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.55 -r1.56
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	21 Jul 2018 11:37:19 -0000	1.55
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	21 Jul 2018 11:56:37 -0000	1.56
@@ -42,7 +42,7 @@
       set tidycmd [::util::which tidy]
       if {$tidycmd ne ""} {
         set in_file [ad_tmpnam]
-        ::xowiki::write_file $in_file $text
+        ::xo::write_file $in_file $text
         catch {exec $tidycmd -q -w 0 -ashtml < $in_file 2> /dev/null} output
         file delete -- $in_file
         #:msg o=$output