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 -r1.10.2.18 -r1.10.2.19
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	24 Aug 2022 08:58:59 -0000	1.10.2.18
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	9 Sep 2022 13:03:10 -0000	1.10.2.19
@@ -205,7 +205,7 @@
         tclwebtest::cookies clear
 
         # Login user
-        array set user_info [twt::user::create -admin]
+        array set user_info [acs::test::user::create -admin]
         twt::user::login $user_info(email) $user_info(password)
 
         file_storage::twt::call_fs_page
@@ -244,7 +244,7 @@
         tclwebtest::cookies clear
 
         # Login user
-        array set user_info [twt::user::create -admin]
+        array set user_info [acs::test::user::create -admin]
         twt::user::login $user_info(email) $user_info(password)
 
         file_storage::twt::call_fs_page
@@ -279,7 +279,7 @@
         tclwebtest::cookies clear
 
         # Login user
-        array set user_info [twt::user::create -admin]
+        array set user_info [acs::test::user::create -admin]
         twt::user::login $user_info(email) $user_info(password)
 
         file_storage::twt::call_fs_page
@@ -316,7 +316,7 @@
         tclwebtest::cookies clear
 
         # Login user
-        array set user_info [twt::user::create -admin]
+        array set user_info [acs::test::user::create -admin]
         twt::user::login $user_info(email) $user_info(password)
 
         file_storage::twt::call_fs_page