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 -r1.15.2.1 -r1.15.2.2
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	24 Nov 2003 16:39:26 -0000	1.15.2.1
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	25 Nov 2003 00:07:19 -0000	1.15.2.2
@@ -196,6 +196,12 @@
         lappend colspecs "item_type_id = :item_type_id"
         if { ![empty_string_p $calendar_id] } {
             lappend colspecs "on_which_calendar = :calendar_id"
+
+            db_dml update_context_id {
+                update acs_objects
+                set    context_id = :calendar_id
+                where  object_id = :cal_item_id
+            }
         }
         
         db_dml update_item_type_id "
@@ -270,6 +276,12 @@
         lappend colspecs {item_type_id = :item_type_id}
         if { ![empty_string_p $calendar_id] } {
             lappend colspecs {on_which_calendar = :calendar_id}
+
+            db_dml update_context_id {
+                update acs_objects
+                set    context_id = :calendar_id
+                where  object_id in (select event_id from acs_events where recurrence_id = :recurrence_id)
+            }
         }
 
         db_dml recurrence_items_update {}