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.29 -r1.30
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	8 Nov 2003 08:30:15 -0000	1.29
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	24 Nov 2003 13:35:10 -0000	1.30
@@ -291,11 +291,11 @@
 
         if {![regexp "(\[^<]*)(<(/?)(\[^ \r\n\t>]+)(\[^>]*)>)?(.*)" $frag match pretag fulltag close tag tagbody frag]} {
             # should never get here since above will match anything.
-            # puts "NO MATCH: should never happen! frag=$frag"
+            ns_log Error "util_close_html_tag - NO MATCH: should never happen! frag=$frag"
             append out $frag 
             set frag {}
         } else {
-            # puts "\n\nmatch=$match\n pretag=$pretag\n fulltag=$fulltag\n close=$close\n tag=$tag\n tagbody=$tagbody\nfrag=$frag\n\n"
+            #ns_log Notice "pretag=$pretag\n fulltag=$fulltag\n close=$close\n tag=$tag\n tagbody=$tagbody frag length is [string length $frag]"
             if { ! $discard } {
                 # figure out if we can break with the pretag chunk 
                 if { $break_soft } {