Index: openacs-4/packages/forums/tcl/test/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/test/forums-procs.tcl,v
diff -u -N -r1.11.2.3 -r1.11.2.4
--- openacs-4/packages/forums/tcl/test/forums-procs.tcl	16 Feb 2021 20:59:03 -0000	1.11.2.3
+++ openacs-4/packages/forums/tcl/test/forums-procs.tcl	3 Mar 2021 14:53:00 -0000	1.11.2.4
@@ -203,7 +203,7 @@
         # Create a new forum
         #
         set name [ad_generate_random_string]
-        set d [forums::test::new -user_id $user_id $name]
+        set d [forums::test::new -user_info $user_info $name]
         set forum_id [dict get $d payload forum_id]
 
 
@@ -249,7 +249,7 @@
         # Create a new forum
         #
         set name [ad_generate_random_string]
-        set d [forums::test::new -user_id $user_id $name]
+        set d [forums::test::new -user_info $user_info $name]
         set forum_id [dict get $d payload forum_id]
         aa_log "Created forum with id $forum_id"
 
@@ -311,7 +311,7 @@
         # Create a new forum
         #
         set name [ad_generate_random_string]
-        set d [forums::test::new -user_id $user_id $name]
+        set d [forums::test::new -user_info $user_info $name]
         set forum_id [dict get $d payload forum_id]
 
         #
@@ -381,7 +381,7 @@
         # Create a new forum
         #
         set name [ad_generate_random_string]
-        set d [forums::test::new -user_id $user_id $name]
+        set d [forums::test::new -user_info $user_info $name]
         set forum_id [dict get $d payload forum_id]
 
         # Post a message in the created forum