Index: openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl,v
diff -u -r1.147.2.36 -r1.147.2.37
--- openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	16 Feb 2024 10:31:38 -0000	1.147.2.36
+++ openacs-4/packages/xowiki/tcl/xowiki-form-procs.tcl	28 Jul 2024 17:00:04 -0000	1.147.2.37
@@ -872,7 +872,7 @@
   proc ::xowiki::validate_form_form {} {
     upvar form form
     if {$form eq ""} {return 1}
-    dom parse -simple [lindex $form 0] doc
+    dom parse -simple -- [lindex $form 0] doc
     $doc documentElement root
     return [expr {$root ne "" && [$root nodeName] eq "form"}]
   }
@@ -901,7 +901,7 @@
     # provide unique ids and names, if form is provided
     #     set form [${:data} set form]
     #     if {$form ne ""} {
-    #       dom parse -simple [lindex $form 0] doc
+    #       dom parse -simple -- [lindex $form 0] doc
     #       $doc documentElement root
     #       set id ID$item_id
     #       $root setAttribute id $id