Index: openacs-4/packages/acs-templating/tcl/test/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/test/data-procs.tcl,v
diff -u -r1.1.2.29 -r1.1.2.30
--- openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	25 Aug 2022 12:45:56 -0000	1.1.2.29
+++ openacs-4/packages/acs-templating/tcl/test/data-procs.tcl	26 Nov 2022 16:52:03 -0000	1.1.2.30
@@ -309,8 +309,7 @@
     #
     # A valid, existing tmpfile
     #
-    set tmpfile [ad_tmpnam]
-    set wfd [open $tmpfile w]
+    set wfd [ad_opentmpfile tmpfile]
     puts $wfd 1234
     close $wfd
 
@@ -335,6 +334,7 @@
         aa_$expected "Is $value a file?" \
             [template::data::validate file value message]
     }
+    ad_file delete $tmpfile
 }
 
 aa_register_case -cats {