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.32 -r1.15.2.33
--- openacs-4/packages/xowiki/tcl/test/test-procs.tcl	1 Apr 2022 13:47:51 -0000	1.15.2.32
+++ openacs-4/packages/xowiki/tcl/test/test-procs.tcl	27 Feb 2023 18:48:57 -0000	1.15.2.33
@@ -8,7 +8,11 @@
         the construction of HTML ids.
 
     } {
-        return [$node selectNodes {string(//form//input[@name="__object_name"]/@value)}]
+        set result [$node selectNodes {string(//form//input[@name="__object_name"]/@value)}]
+        if {$result ne ""} {
+            set result [::security::parameter::validated $result]
+        }
+        return $result
     }
 
     ad_proc -private ::xowiki::test::get_form_CSSclass {node} {