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 -N -r1.5 -r1.6
--- openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	7 Aug 2017 23:48:00 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/util-diff-procs.tcl	25 Apr 2018 19:23:26 -0000	1.6
@@ -115,7 +115,7 @@
     package require struct::list
 
     set frag $old
-    set old_list [list]
+    set old_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
@@ -126,7 +126,7 @@
 	}
 	if {$pretag ne ""} {
 	    set pretag [string map {\n " "} $pretag]
-	    set pretag2 [list]
+	    set pretag2 {}
 	    foreach element [split $pretag " "] {
 		if {[string trim $element] ne ""} {
 		    lappend pretag2 [string trim $element]
@@ -142,7 +142,7 @@
     }
 
     set frag $new
-    set new_list [list]
+    set new_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
@@ -152,7 +152,7 @@
 	}
 	if {$pretag ne ""} {
 	    set pretag [string map {\n " "} $pretag]
-	    set pretag2 [list]
+	    set pretag2 {}
 	    foreach element [split $pretag " "] {
 		if {[string trim $element] ne ""} {
 		    lappend pretag2 [string trim $element]