Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Dec 2001 19:16:46 -0000	1.33
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Dec 2001 19:35:34 -0000	1.34
@@ -323,7 +323,10 @@
     } {
 	db_transaction {
 	    # Set up a portal page for that user and that community
-	    set portal_id [portal::create -template_id [get_portal_template_id $community_id] $user_id]
+	    set portal_id [portal::create \
+		    -name "Your [get_community_name $community_id] page" \
+		    -template_id [get_portal_template_id $community_id] \
+		    $user_id]
 	    
 	    # Create the form with the portal_id
 	    set extra_vars [ns_set create]