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.2 -r1.2.2.1
--- openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	17 Feb 2003 03:04:55 -0000	1.2
+++ openacs-4/contrib/packages/populate/tcl/populate-procs.tcl	9 Dec 2003 11:59:16 -0000	1.2.2.1
@@ -25,7 +25,8 @@
              apm_package_create_instance -package_id $package_id subsite_$package_id $context_id acs-subsite
              site_node::mount -node_id $node_id -object_id $package_id
              site_node::update_cache -node_id $node_id
-             apm_package_call_post_instantiation_proc $package_id acs-subsite
+             apm_invoke_callback_proc -package_key acs-subsite -type "after-instantiate" -arg_list [list package_id $package_id]
+             # apm_package_call_post_instantiation_proc $package_id acs-subsite
          }
 
          # Fill in the subtree