Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -r1.64 -r1.65
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	21 Mar 2018 19:37:57 -0000	1.64
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	25 Apr 2018 19:47:48 -0000	1.65
@@ -137,7 +137,7 @@
 
     @return flattened list of attribute value pairs
   } {
-    set pairs [list]
+    set pairs {}
     foreach attribute $args {
       set l [split $attribute]
       if {[llength $l] > 1} {
@@ -161,7 +161,7 @@
 
     @return flattened list of attribute value pairs
   } {
-    set pairs [list]
+    set pairs {}
     foreach attribute $args {
       set l [split $attribute]
       if {[llength $l] > 1} {
@@ -245,7 +245,7 @@
     #ns_log notice "--local $text $inline"
     set obj [uplevel self]
     if {![$obj exists __localizer]} {
-      $obj set __localizer [list]
+      $obj set __localizer {}
     }
     if {[string first \x02 $text] == -1} {
       return $text
@@ -349,7 +349,7 @@
             $l destroy
           }
         }
-        set :__localizer [list]
+        set :__localizer {}
       } \
       -instproc render-data args {
         next
@@ -411,7 +411,7 @@
     set M [OrderedComposite create [self]::__columns]
     namespace eval $M [list namespace import -force [self class]::*]
     $M contains $cmd
-    set slots [list]
+    set slots {}
     foreach c [$M children] {
       lappend slots {*}[$c get-slots]
     }
@@ -446,7 +446,7 @@
     {-delimiter ","}
   } {
     set output ""
-    set line [list]
+    set line {}
     foreach column [[self]::__columns children] {
       if {[$column exists no_csv]} continue
       set label [$column label]
@@ -458,7 +458,7 @@
   }
   append output [join $line $delimiter] \n
   foreach row [:children] {
-    set line [list]
+    set line {}
     foreach column [[self]::__columns children] {
       if {[$column exists no_csv]} continue
       set value [string map {\" \\\" \n \r} [$row set [$column set name]]]
@@ -477,7 +477,7 @@
 Class create Table::Line \
     -superclass ::xo::Drawable \
     -instproc attlist {name atts {extra ""}} {
-      set result [list] 
+      set result {} 
       foreach att $atts {
         set varname $name.$att
         if {[info exists :$varname]} {
@@ -992,8 +992,8 @@
     return [list]
   }
   Page proc sort_keys_by_value {{-comparison integer} {-direction increasing} pairs} {
-    set result [list]
-    set a [list]
+    set result {}
+    set a {}
     foreach {key value} $pairs {
       lappend a [list $key $value]
     }