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.30 -r1.31
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	22 Apr 2018 18:05:23 -0000	1.30
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	25 Apr 2018 19:47:46 -0000	1.31
@@ -249,7 +249,7 @@
             db_exec_plsql update_interval {}
 
             # Update the item_type_id and calendar_id
-            set colspecs [list]
+            set colspecs {}
             lappend colspecs "item_type_id = :item_type_id"
             if { $calendar_id ne "" } {
                 lappend colspecs "on_which_calendar = :calendar_id"
@@ -333,7 +333,7 @@
             -cal_item_id $event_id \
             -array orig_event
 
-        set colspecs [list]
+        set colspecs {}
         foreach col {name description} {
             if {$orig_event($col) ne [set $col]} {
                 lappend colspecs "$col = :$col"
@@ -342,7 +342,7 @@
         if {[llength $colspecs]} {
             db_dml recurrence_events_update {}
         }
-        set colspecs [list]
+        set colspecs {}
         lappend colspecs {item_type_id = :item_type_id}
         if { $calendar_id ne "" } {
             lappend colspecs {on_which_calendar = :calendar_id}