Index: openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl,v
diff -u -N -r1.8.2.3 -r1.8.2.4
--- openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl	24 Nov 2022 14:45:54 -0000	1.8.2.3
+++ openacs-4/packages/acs-tcl/tcl/test/application-data-link-procs.tcl	26 Nov 2022 16:47:54 -0000	1.8.2.4
@@ -44,7 +44,7 @@
 } {
     aa_run_with_teardown -rollback -test_code {
         # create some test objects
-        set name [ad_tmpnam "cr_item__XXXXXX"]
+        set name "cr_item__[ad_generate_random_string]"
 
         for {set i 0} {$i<10} {incr i} {
             set o($i) [content::item::new \
@@ -139,7 +139,7 @@
 } {
     aa_run_with_teardown -rollback -test_code {
         # create some test objects
-        set name [ad_tmpnam "cr_item__XXXXXX"]
+        set name "cr_item__[[ad_generate_random_string]"
 
         for {set i 0} {$i<10} {incr i} {
         set o($i) [content::item::new \
@@ -216,7 +216,7 @@
 } {
     aa_run_with_teardown -rollback -test_code {
         # create some test objects
-        set name [ad_tmpnam "cr_item__XXXXXX"]
+        set name "cr_item__[ad_generate_random_string]"
 
         for {set i 0} {$i<6} {incr i} {
         set o($i) [content::item::new \