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.78 -r1.79
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	29 Nov 2001 07:00:04 -0000	1.78
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	3 Dec 2001 19:33:53 -0000	1.79
@@ -85,7 +85,8 @@
 	{-name "Untitled"} 
 	{-template_id ""} 
 	{-portal_template_p "f"} 
-	{-layout_name "'Simple 2-Column'"} 
+	{-layout_name "'Simple 2-Column'"}
+	{-context_id ""} 
 	user_id 
     } {
 	Create a new portal for the passed in user id. 
@@ -111,7 +112,7 @@
 	    layout_id => :layout_id,
 	    template_id => :template_id,
 	    portal_template_p => :portal_template_p
-
+	    context_id => :context_id
 	    );
 	    
 	    acs_permission.grant_permission (