Index: openacs-4/contrib/packages/portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/portal-procs.tcl,v
diff -u -r1.33 -r1.34
--- openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	26 Jun 2004 00:36:01 -0000	1.33
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	20 Jul 2004 21:08:09 -0000	1.34
@@ -630,7 +630,12 @@
             set master_portal_id [portal::new \
                                      -name "Shared Portal" \
                                      -owner_id 0 \
-                                     -theme_name [parameter::get -parameter DefaultThemeName] \
+                                     -theme_name [parameter::get \
+                                                     -parameter DefaultThemeName \
+                                                     -package_id $package_id \
+                                                     -default [parameter::get_from_package_key \
+                                                                  -package_key portal \
+                                                                  -parameter -DefaultThemeName]] \
                                      -owner_privileges {}]
      
             # create the admin template
@@ -639,7 +644,12 @@
                                     -name "Portal Administration" \
                                     -owner_id $package_id \
                                     -page_list {{"Portal Administration" 2_column}} \
-                                    -theme_name [parameter::get -parameter DefaultThemeName] \
+                                     -theme_name [parameter::get \
+                                                     -parameter DefaultThemeName \
+                                                     -package_id $package_id \
+                                                     -default [parameter::get_from_package_key \
+                                                                  -package_key portal \
+                                                                  -parameter -DefaultThemeName]] \
                                     -owner_privileges {}]
 
             db_foreach select_portal_datasources {} {