Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -r1.15.2.20 -r1.15.2.21
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	14 Jul 2021 09:51:12 -0000	1.15.2.20
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	2 Aug 2021 21:23:20 -0000	1.15.2.21
@@ -125,8 +125,8 @@
                 set f [::xowiki::File new -name $name -description "" \
                            -parent_id $parent_id -package_id $package_id \
                            -mime_type $mime_type]
-                set import_file [ad_tmpnam]
-                ::xo::write_file $import_file [::base64::decode $file_content]
+
+                ::xo::write_tmp_file import_file [::base64::decode $file_content]
                 $f set import_file $import_file
             }
             $f publish_status ready