Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.64 -r1.65
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	9 Aug 2002 18:39:28 -0000	1.64
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	14 Aug 2002 23:28:10 -0000	1.65
@@ -423,12 +423,13 @@
             -community_id $old_community_id
         ]
         
-        set results [add_applet_to_community_helper \
+        add_applet_to_community_helper \
                     -community_id $new_community_id
+
+        set calendar_id [get_group_calendar_id \
+            -community_id $new_community_id
         ]
 
-        set calendar_id [lindex $results 1]
-
         db_dml copy_cal_item_types {}
     }