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.152 -r1.153
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	28 Jun 2002 20:08:29 -0000	1.152
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	12 Jul 2002 21:26:48 -0000	1.153
@@ -191,8 +191,12 @@
         db_transaction {
             # create the portal and the first page
 
-            set portal_id [db_exec_plsql create_new_portal_and_perms {}]
+            set portal_id [db_exec_plsql create_new_portal {}]
 
+            permission::grant -party_id $user_id -object_id $portal_id -privilege portal_read_portal
+            permission::grant -party_id $user_id -object_id $portal_id -privilege portal_edit_portal
+            permission::grant -party_id $user_id -object_id $portal_id -privilege portal_admin_portal
+
             # ignore the csv list if we have a template
             if {![empty_string_p $csv_list] && [empty_string_p $template_id]} {
                 # if there are more pages in the csv_list, create them