Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.62 -r1.63
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	25 Apr 2018 19:47:48 -0000	1.62
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	9 May 2018 15:33:34 -0000	1.63
@@ -132,7 +132,7 @@
 
     @return list of item_ids
   } {
-    set items {}
+    set items [list]
     foreach item_id [::xo::dc list get_child_items \
                          "select item_id from cr_items where parent_id = :item_id"] {
       lappend items $item_id {*}[my [self proc] -item_id $item_id]
@@ -429,7 +429,7 @@
     set raw_atts [::xo::db::CrClass set common_query_atts]
     #my log "-- raw_atts = '$raw_atts'"
 
-    set atts {}
+    set atts [list]
     foreach v $raw_atts {
       switch -glob -- $v {
         publish_status {set fq i.$v}
@@ -622,7 +622,7 @@
       set attribute_selection [join $attributes ,]
     }
     
-    set cond {}
+    set cond [list]
     if {$type_selection_clause ne ""} {lappend cond $type_selection_clause}
     if {$where_clause ne ""}          {lappend cond $where_clause}
     if {[info exists publish_status]} {lappend cond "ci.publish_status = :publish_status"}
@@ -815,8 +815,8 @@
       # view. So we postpone these updates and perform these
       # as separate statements.
       #
-      set values {}
-      set attributes {}
+      set values [list]
+      set attributes [list]
       #my msg "--long_text_slots: [array get :long_text_slots]"
 
       foreach a $atts v $vars {
@@ -1399,7 +1399,7 @@
       set attribute_selection [join $attributes ,]
     }
 
-    set cond {}
+    set cond [list]
     if {$type_selection_clause ne ""} {lappend cond $type_selection_clause}
     if {$where_clause ne ""}          {lappend cond $where_clause}
     if {[info exists publish_status]} {lappend cond "ci.publish_status = :publish_status"}