Index: openacs-4/packages/xowiki/tcl/test/test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/test/test-procs.tcl,v
diff -u -r1.15.2.22 -r1.15.2.23
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	15 Jan 2022 16:17:57 -0000	1.15.2.22
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	18 Jan 2022 11:29:11 -0000	1.15.2.23
@@ -204,7 +204,7 @@
             # expect a permission denied error.
             #
             set d [acs::test::http -user_id 0 $instance/$form_name?m=create-new&return_url=$instance/]
-            aa_equals "require_test_folder: Status code valid" [dict get $d status] 403
+            acs::test::reply_has_status_code $d 403
 
             ::xowiki::test::create_form_page \
                 -user_id $user_id \
@@ -362,6 +362,7 @@
             aa_log "create_form_page: DONE"
             dict set d page_info $page_info
             dict set d instance $instance
+            dict set d item_id $item_id
         }
         return $d
     }