Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -N -r1.155 -r1.156
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2002 22:16:38 -0000	1.155
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Jul 2002 04:30:33 -0000	1.156
@@ -88,7 +88,7 @@
             # Create the class directly using PL/SQL API
             set community_type_key [db_exec_plsql create_community_type {}]
 
-            set package_id [site_node::new_with_package \
+            set package_id [site_node_apm_integration::new_site_node_and_package \
                 -name [ad_decode $url_part "" $community_type_key $url_part] \
                 -parent_id $parent_node_id \
                 -package_key [one_community_type_package_key] \
@@ -222,7 +222,7 @@
                 set parent_node_id [get_community_node_id $parent_community_id]
             }
 
-            set package_id [site_node::new_with_package \
+            set package_id [site_node_apm_integration::new_site_node_and_package \
                 -name $community_key \
                 -parent_id $parent_node_id \
                 -package_key [one_community_package_key] \
@@ -1557,7 +1557,7 @@
                 set parent_node_id [get_type_node_id $community_type]
             }
 
-            set package_id [site_node::new_with_package \
+            set package_id [site_node_apm_integration::new_site_node_and_package \
                 -name $key \
                 -parent_id $parent_node_id \
                 -package_key [one_community_package_key] \