Index: openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	9 May 2018 15:33:29 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	4 Dec 2018 20:50:18 -0000	1.8
@@ -118,7 +118,6 @@
     set old_list [list]
     while {$frag ne ""} {
 	if {![regexp "(\[^<]*)(<(/?)(\[^ \r\n\t>]+)(\[^>]*)>)?(.*)" $frag match pretag fulltag close tag tagbody frag]} {
-	    # we should never get here, the regexp should match anything
             # should never get here since above will match anything.
             ns_log Error "util_close_html_tag - NO MATCH: should never happen! frag=$frag"
             lappend old_list $frag 
@@ -145,7 +144,6 @@
     set new_list [list]
     while {$frag ne ""} {
 	if {![regexp "(\[^<]*)(<(/?)(\[^ \r\n\t>]+)(\[^>]*)>)?(.*)" $frag match pretag fulltag close tag tagbody frag]} {
-	    # we should never get here, the regexp should match anything
             # should never get here since above will match anything.
             lappend new_list $frag 
             set frag {}