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.47 -r1.48
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Jan 2002 17:13:51 -0000	1.47
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	21 Jan 2002 22:08:46 -0000	1.48
@@ -153,6 +153,7 @@
                     [portal::create \
                     -portal_template_p "t" \
                     -name "$pretty_name Portal Template" \
+                    -default_page_name [ad_parameter class_first_page_name] \
                     -context_id $community_id \
                     $user_id ]
 
@@ -161,13 +162,20 @@
                     [portal::create \
                     -template_id $portal_template_id \
                     -name "$pretty_name Non-Member Portal" \
+                    -default_page_name [ad_parameter class_first_page_name] \
                     -context_id $community_id \
                     $user_id]
 
+            ns_log notice "aks1 [db_string foobar {
+                select page_id 
+                from portal_current_page 
+                where portal_id = :portal_id}]"
+
             # Create the admin page
             set admin_portal_id \
                     [portal::create \
                     -name "$pretty_name Administration Portal" \
+                    -default_page_name [ad_parameter class_admin_first_page_name] \
                     -context_id $community_id \
                     -layout_name "Simple 1-Column" \
                     $user_id]