Index: openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl,v
diff -u -r1.6.2.9 -r1.6.2.10
--- openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	16 Feb 2021 20:59:02 -0000	1.6.2.9
+++ openacs-4/packages/acs-admin/tcl/test/acs-admin-procs.tcl	2 Aug 2021 21:26:54 -0000	1.6.2.10
@@ -98,7 +98,6 @@
     acs::test::user::create
     acs_user::create_portrait
     acs_user::get_portrait_id
-    ad_tmpnam
     permission::grant
     permission::permission_p
 } acs_admin_merge_MergeUserInfo {
@@ -112,8 +111,7 @@
             set user_id_2 [dict get [acs::test::user::create] user_id]
 
             # Fake non-image just to have a file to save
-            set tmpnam [ad_tmpnam].png
-            set wfd [open $tmpnam w]
+            set wfd [file tempfile tmpnam [ad_tmpdir]/test-XXXXXX.png]
             puts $wfd [string repeat a 1000]
             close $wfd
             # Give a fake portrait to user_1