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 -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
Index: openacs-4/packages/forums/tcl/test/webtest-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/test/webtest-procs.tcl,v
diff -u -r1.2.2.5 -r1.2.2.6
--- openacs-4/packages/forums/tcl/test/webtest-procs.tcl	25 Feb 2020 16:55:51 -0000	1.2.2.5
+++ openacs-4/packages/forums/tcl/test/webtest-procs.tcl	3 Mar 2021 14:53:00 -0000	1.2.2.6
@@ -11,6 +11,7 @@
         {-presentation_type flat}
         {-posting_policy open}
         {-user_id 0}
+        {-user_info ""}
         name
     } {
         Create a new forum via the web interface.
@@ -23,7 +24,11 @@
         #
         # Get Data and check status code
         #
-        set d [acs::test::http -user_id $user_id $forums_page/admin/forum-new]
+        if {$user_info eq ""} {
+            set d [acs::test::http -user_id $user_id $forums_page/admin/forum-new]
+        } else {
+            set d [acs::test::http -user_info $user_info $forums_page/admin/forum-new]
+        }
         acs::test::reply_has_status_code $d 200
 
         #