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.59 -r1.60
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	21 Jun 2002 21:06:19 -0000	1.59
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	22 Jun 2002 20:11:03 -0000	1.60
@@ -123,9 +123,9 @@
         # ** setup stuff **
         #
         # automount calendar in this community
-        set node_id [site_nodes::get_node_id_from_url \
-                -url [dotlrn_community::get_url_from_package_id \
-                -package_id [dotlrn_community::get_package_id $community_id]]]
+        set node_id [site_node::get_node_id \
+            -url [site_node::get_url_from_object_id -object_id [dotlrn_community::get_package_id $community_id]] \
+        ]
 
         set package_id [dotlrn::mount_package \
                 -parent_node_id $node_id \