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.182 -r1.183
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	13 Aug 2007 06:10:27 -0000	1.182
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	7 Oct 2007 22:37:03 -0000	1.183
@@ -145,7 +145,11 @@
 
     set page_name_list [list $default_page_name]
     set page_accesskey_list [list $default_accesskey]
-    set layout_name_list [list "#new-portal.simple_2column_layout_name#"]
+    if { [string eq $layout_name ""] } {
+        set layout_name_list [list "#new-portal.simple_2column_layout_name#"]
+    } else {
+        set layout_name_list [list $layout_name]
+    }
     
     if {![empty_string_p $csv_list]} {
         set page_name_and_layout_list [split [string trimright $csv_list ";"] ";"]