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.21 -r1.22
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	23 Jan 2002 06:29:31 -0000	1.21
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	23 Jan 2002 08:00:17 -0000	1.22
@@ -172,7 +172,7 @@
             calendar_portlet::make_self_available $workspace_portal_id
 
             set element_id  [calendar_portlet::add_self_to_page \
-                    -page_id [portal::get_page_id -portal_id $portal_id -page_name [get_user_default_page]] \
+                    -page_id [portal::get_page_id -portal_id $workspace_portal_id -page_name [get_user_default_page]] \
                     $workspace_portal_id \
                     $calendar_id]
         }