Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	2 Apr 2003 15:56:25 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	14 Apr 2003 14:01:05 -0000	1.25
@@ -60,6 +60,7 @@
         {-package_name ""}
         {-context_id ""}
         {-package_key:required}
+        {-package_id ""}
     } {
         Instantiate and mount a package of given type. If the package is a singleton (should only have one instance)
         and an instance already exists then this proc will attempt to mount that instance.
@@ -75,6 +76,7 @@
                               node in the site map. If there is no such package then context_id will be the
                               id of the parent node itself.
         @param package_key    The key of the package type to instantiate.
+        @param package_id     The id of the new package. Optional.
 
         @return The id of the instantiated package
                           
@@ -111,7 +113,8 @@
         # Instantiate the package
         set package_id [apm_package_instance_new -instance_name $package_name \
                                                  -context_id $context_id \
-                                                 -package_key $package_key]
+                                                 -package_key $package_key \
+                                                 -package_id $package_id]
 
         # Mount the package
         site_node::mount -node_id $node_id -object_id $package_id