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.179.2.17 -r1.179.2.18
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	4 May 2007 07:24:50 -0000	1.179.2.17
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	21 Jul 2007 09:57:49 -0000	1.179.2.18
@@ -147,7 +147,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 ";"] ";"]