Index: openacs-4/packages/calendar-portlet/tcl/calendar-admin-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-admin-portlet-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/calendar-portlet/tcl/calendar-admin-portlet-procs.tcl	12 May 2002 18:15:04 -0000	1.7
+++ openacs-4/packages/calendar-portlet/tcl/calendar-admin-portlet-procs.tcl	29 May 2002 23:00:26 -0000	1.8
@@ -57,14 +57,12 @@
 
 	@return element_id The new element's id
     } {
-        set element_id [portal::add_element \
+        return [portal::add_element_parameters \
             -portal_id $portal_id \
             -portlet_name [get_my_name] \
+            -key calendar_id \
+            -value $calendar_id
         ]
-
-        portal::set_element_param $element_id calendar_id $calendar_id
-
-        return $element_id
     }
 
     ad_proc -public remove_self_from_page {