Index: openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	10 Sep 2002 22:22:11 -0000	1.9
+++ openacs-4/packages/acs-subsite/www/admin/site-map/index.tcl	4 Dec 2002 16:41:17 -0000	1.10
@@ -187,7 +187,7 @@
       doc_body_append "<form name=new_application action=package-new>
         [export_form_vars expand:multiple root_id node_id new_package_id]
         <font size=-1>
-        <input name=instance_name type=text size=8 value=\"Untitled\">
+        <input name=instance_name type=text size=8 value=\"\">
         </td><td>
         <select name=package_key>
       "
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 -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 {