Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.75 -r1.76
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	27 Nov 2001 20:27:17 -0000	1.75
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	29 Nov 2001 00:06:40 -0000	1.76
@@ -82,6 +82,7 @@
     #
 
     ad_proc -public create {
+	{-name "Untitled"} 
 	{-template_id ""} 
 	{-portal_template_p "f"} 
 	{-layout_name "'Simple 2-Column'"} 
@@ -106,6 +107,7 @@
 	    begin
 	    
 	    :1 := portal.new ( 
+	    name => :name,
 	    layout_id => :layout_id,
 	    template_id => :template_id
 	    );