Index: openacs-4/packages/xotcl-core/tcl/ical-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/ical-procs.tcl,v
diff -u -N -r1.20.2.1 -r1.20.2.2
--- openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	30 Jul 2019 19:14:24 -0000	1.20.2.1
+++ openacs-4/packages/xotcl-core/tcl/ical-procs.tcl	3 Sep 2020 12:33:31 -0000	1.20.2.2
@@ -423,7 +423,7 @@
           # calendar::item::delete_recurrence -recurrence_id $recurrence_id
 
           lassign [::xo::dc list -prepare integer get_old_start_date_and_event_id {
-            select start_date,
+            select start_date, e.event_id
             from  acs_events e, timespans t, time_intervals i
             where recurrence_id = :recurrence_id
             and   e.timespan_id = t.timespan_id