Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	30 Apr 2018 13:54:38 -0000	1.32
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	9 May 2018 15:33:29 -0000	1.33
@@ -271,7 +271,7 @@
             db_exec_plsql update_interval {}
 
             # Update the item_type_id and calendar_id
-            set colspecs {}
+            set colspecs [list]
             lappend colspecs "item_type_id = :item_type_id"
             if { $calendar_id ne "" } {
                 lappend colspecs "on_which_calendar = :calendar_id"
@@ -355,7 +355,7 @@
             -cal_item_id $event_id \
             -array orig_event
 
-        set colspecs {}
+        set colspecs [list]
         foreach col {name description} {
             if {$orig_event($col) ne [set $col]} {
                 lappend colspecs "$col = :$col"
@@ -364,7 +364,7 @@
         if {[llength $colspecs]} {
             db_dml recurrence_events_update {}
         }
-        set colspecs {}
+        set colspecs [list]
         lappend colspecs {item_type_id = :item_type_id}
         if { $calendar_id ne "" } {
             lappend colspecs {on_which_calendar = :calendar_id}