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.4.2.1 -r1.4.2.2
--- openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	10 Sep 2015 08:22:01 -0000	1.4.2.1
+++ openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	20 Oct 2015 10:06:04 -0000	1.4.2.2
@@ -189,33 +189,33 @@
         }
         if { $action eq "changed" } {
 	    if {$show_old_p} {
-		ns_log notice "adding <@d@>"
+		#ns_log notice "adding <@d@>"
 		lappend output <@d@>
 		foreach item [lrange $old_list $old_index1 $old_index2] {
 		    if {![string match "<*>" [string trim $item]]} {
-		    ns_log notice "deleting item '${item}'"
+                        #ns_log notice "deleting item '${item}'"
 			# showing deleted tags is a bad idea.
 			lappend output [string trim $item]
 		    } else {
 			ns_log notice "SKIPPED DELETE of tag $item"
 		    }
 
 		}
-		ns_log notice "adding </@d@>"
+		#ns_log notice "adding </@d@>"
 		lappend output </@d@>
 	    }
-	    ns_log notice "adding <@a@>"
+	    #ns_log notice "adding <@a@>"
 	    lappend output <@a@>
             foreach item [lrange $new_list $new_index1 $new_index2] {
 	        if {![string match "<*>" [string trim $item]]} {
-		    ns_log notice "adding item '${item}'"
+		    #ns_log notice "adding item '${item}'"
 		    lappend output [string trim $item]
 		} else {
 		    lappend output </@a@>${item}<@a@>
-		    ns_log notice "adding</@a@>${item}<@a@>"
+		    #ns_log notice "adding</@a@>${item}<@a@>"
 		}
             }
-	    ns_log notice "adding </@a@>"
+	    #ns_log notice "adding </@a@>"
 	    lappend output </@a@>
             incr i [expr {$old_index2 - $old_index1 + 1}]
         } elseif { $action eq "deleted" } {
@@ -227,14 +227,14 @@
             incr i [expr {$old_index2 - $old_index1 + 1}]
         } elseif { $action eq "added" } {
             while {$i < $old_index2} {
-		ns_log notice "unchanged item"
-		    lappend output [lindex $old_list $i]
+		#ns_log notice "unchanged item"
+                lappend output [lindex $old_list $i]
                 incr i
             }
             lappend output <@a@>
             foreach item [lrange $new_list $new_index1 $new_index2] {
 	        if {![string match "<*>" [string trim $item]]} {
-		    ns_log notice "adding item"
+		    #ns_log notice "adding item"
 		    lappend output [string trim $item]
 		}
             }