Index: openacs-4/contrib/packages/populate/tcl/populate-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/populate/tcl/populate-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	11 Dec 2003 21:39:44 -0000	1.3
+++ openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	26 Feb 2005 17:52:20 -0000	1.4
@@ -22,7 +22,11 @@
          db_transaction {
              set package_id [db_nextval acs_object_id_seq]
              set node_id [site_node::new -name subsite_$package_id -parent_id $parent_id]
-             apm_package_create_instance -package_id $package_id subsite_$package_id $context_id acs-subsite
+             apm_package_instance_new \
+                 -package_id $package_id \
+                 -instance_name subsite_$package_id \
+                 -context_id $context_id \
+                 -package_key acs-subsite
              site_node::mount -node_id $node_id -object_id $package_id
              site_node::update_cache -node_id $node_id
              apm_invoke_callback_proc -package_key acs-subsite -type "after-instantiate" -arg_list [list package_id $package_id]