Index: openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	10 Sep 2002 22:22:11 -0000	1.3
+++ openacs-4/packages/acs-subsite/www/admin/site-map/package-new.tcl	4 Dec 2002 16:41:17 -0000	1.4
@@ -9,14 +9,18 @@
 } {
     new_package_id:integer,notnull
     node_id:integer,notnull
-    instance_name:notnull
+    {instance_name ""}
     package_key:notnull
     {expand:integer,multiple ""}
     root_id:integer,optional
 }
 
 set context_id [ad_conn package_id]
 
+if { [empty_string_p $instance_name] } {
+        set instance_name [db_string instance_default_name "select pretty_name from apm_package_types where package_key = :package_key"]
+}
+
 db_transaction {
     set package_id [site_node_create_package_instance -package_id $new_package_id $node_id $instance_name $context_id $package_key]
 } on_error {