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 -N -r1.56 -r1.57
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	24 May 2002 01:58:45 -0000	1.56
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	29 May 2002 23:00:25 -0000	1.57
@@ -363,12 +363,16 @@
         ns_log notice "Cloning: [applet_key]"
 
         # copy the old_comm's item types table
-        set old_calendar_id [get_group_calendar_id -community_id $old_calendar_id]
+        set old_calendar_id [get_group_calendar_id \
+            -community_id $old_community_id
+        ]
+        
+        set calendar_id [calendar_create_helper -community_id $new_community_id]
+
         db_dml copy_cal_item_types {}
 
-        set calendar_id [calendar_create_helper -community_id $community_id]
         return [add_applet_to_community_helper \
-                    -community_id $community_id \
+                    -community_id $new_community_id \
                     -calendar_id $calendar_id
        ]
     }