Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -r1.109.2.59 -r1.109.2.60
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	17 Jul 2024 12:53:21 -0000	1.109.2.59
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	18 Jul 2024 10:05:03 -0000	1.109.2.60
@@ -1621,16 +1621,21 @@
         dom parse -html "${lmarker}${html}${rmarker}" doc
 
     } on error {errorMsg} {
-        set severity [expr {$validate_p ? "notice" : "error"}]
+        set severity [expr {$validate_p ? "notice" : "warning"}]
         if {$fix_p} {
             try {
                 set doc [ad_dom_fix_html -html $html -dom]
             } on error {errorMsg} {
-                ad_log $severity "Fixing of the document failed. Reported error: $errorMsg"
+                if {![aa_test_running_p]} {
+                    ad_log $severity "Fixing of the document failed. Reported error: $errorMsg"
+                }
                 return [expr {$validate_p ? 0 : ""}]
             }
         } else {
-            ad_log $severity "Parsing of the document failed. Reported error: $errorMsg"
+            #ns_log notice "PARSING of\n${lmarker}${html}${rmarker}\n FAILED"
+            if {![aa_test_running_p]} {
+                ad_log $severity "Parsing of the document failed. Reported error: $errorMsg"
+            }
             return [expr {$validate_p ? 0 : ""}]
         }
     }
@@ -1745,7 +1750,6 @@
                     # information from our current location.
                     #
                     set url [ns_absoluteurl $url $current_location]
-
                     if {$no_outer_urls_p && [util::external_url_p $url]} {
                         if {$validate_p} {
                             #