Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -N -r1.10.2.16 -r1.10.2.17
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	9 Sep 2021 13:48:26 -0000	1.10.2.16
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	26 Jun 2022 19:28:28 -0000	1.10.2.17
@@ -483,8 +483,9 @@
         #
         # Get rid of the user
         #
-        aa_section "Delete test user (user_id [dict get $user_info user_id])"
-        acs::test::user::delete -user_id [dict get $user_info user_id]
+        set user_id [dict get $user_info user_id]
+        aa_section "Delete test user (user_id $user_id)"
+        acs::test::user::delete -user_id $user_id -delete_created_acs_objects
     }
 
 }