Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v
diff -u -r1.126.2.27 -r1.126.2.28
--- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	28 Jul 2024 17:00:04 -0000	1.126.2.27
+++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl	28 Jul 2024 17:08:02 -0000	1.126.2.28
@@ -2214,7 +2214,7 @@
     }
     set repositories ""
 
-    dom parse -html -simple -- [dict get $result page] doc
+    dom parse -html -- [dict get $result page] doc
     $doc documentElement root
     foreach node [$root selectNodes {//ul/li/a}] {
         set href [$node getAttribute href]
Index: openacs-4/packages/xowf/tcl/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test-item-procs.tcl,v
diff -u -r1.7.2.289 -r1.7.2.290
--- openacs-4/packages/xowf/tcl/test-item-procs.tcl	28 Jul 2024 17:00:04 -0000	1.7.2.289
+++ openacs-4/packages/xowf/tcl/test-item-procs.tcl	28 Jul 2024 17:08:02 -0000	1.7.2.290
@@ -3597,7 +3597,7 @@
       # @return HTML block
 
       #ns_log notice "QF=$question_form"
-      dom parse -html -simple -- $question_form doc
+      dom parse -html -- $question_form doc
       $doc documentElement root
       if {$root eq ""} {
         error "form '$form' is not valid"
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.542.2.179 -r1.542.2.180
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	28 Jul 2024 17:00:04 -0000	1.542.2.179
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	28 Jul 2024 17:08:02 -0000	1.542.2.180
@@ -3467,7 +3467,7 @@
     #:msg status=[$r set status]
     if {$status == 200} {
       #:msg data=$data
-      dom parse -html -simple -- $data doc
+      dom parse -html -- $data doc
       $doc documentElement root
       set n [$root selectNodes {//*[@id="result_box"]}]
       :msg "$text $from=>$to node '$n'"
@@ -4271,7 +4271,7 @@
   }
 
   Form proc disable_input_fields {{-with_submit 0} form} {
-    dom parse -html -simple -- $form doc
+    dom parse -html -- $form doc
     $doc documentElement root
     if {$root ne ""} {
       :dom_disable_input_fields -with_submit $with_submit $root
@@ -5172,7 +5172,7 @@
         lappend field_names $att
       }
       #ns_log notice "field_names_from_form: [:serialize]"
-      dom parse -html -simple -- $form doc
+      dom parse -html -- $form doc
       $doc documentElement root
       set fields [$root selectNodes "//*\[@name != ''\]"]
       foreach field $fields {
@@ -5316,7 +5316,7 @@
                     {:form_field_as_html -mode display "\\\1" "\2" $form_fields}]
 
       # we parse the form just for the margin-form.... maybe regsub?
-      dom parse -html -simple -- $form :doc
+      dom parse -html -- $form :doc
       ${:doc} documentElement :root
       set form_node [lindex [${:root} selectNodes //form] 0]
 
Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.368.2.157 -r1.368.2.158
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	28 Jul 2024 17:00:04 -0000	1.368.2.157
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	28 Jul 2024 17:08:03 -0000	1.368.2.158
@@ -1335,7 +1335,7 @@
     set form [string map [list @ \x03] $form]
     #:msg form=$form
 
-    dom parse -html -simple -- $form :doc
+    dom parse -html -- $form :doc
     ${:doc} documentElement :root
 
     if {${:root} eq ""} {