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.36 -r1.109.2.37
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	30 Aug 2022 08:47:52 -0000	1.109.2.36
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	30 Aug 2022 14:48:49 -0000	1.109.2.37
@@ -64,10 +64,9 @@
     return $result
 }
 
-ad_proc -private enhanced_text_escape_disallowed {text} {
-} {
+ad_proc -private ad_enhanced_text_escape_disallowed {text} {
     set tagDict {}
-    #ns_log notice "enhanced_text_escape_disallowed called on [ns_conn url]?[ns_conn query]"
+    #ns_log notice "ad_enhanced_text_escape_disallowed called on [ns_conn url]?[ns_conn query]"
     if {[::acs::icanuse "ns_parsehtml"]} {
         if {[ns_conn isconnected]} {
             ns_log notice "PARSE called by [ns_conn url]?[ns_conn query]"
@@ -164,7 +163,7 @@
     set text [ad_text_cite_to_blockquote $text]
 
     if {$includes_html_p} {
-        set d [enhanced_text_escape_disallowed $text]
+        set d [ad_enhanced_text_escape_disallowed $text]
         set text [dict get $d text]
         set tagDict [dict get $d tagDict]
     } else {