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 -N -r1.28 -r1.29
--- openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	28 May 2004 12:27:05 -0000	1.28
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	6 Jun 2004 02:29:10 -0000	1.29
@@ -85,12 +85,12 @@
         db_transaction {
 
             set var_list [subst {
-                {name "$name"}
-                {template_id $template_id}
-                {context_id $context_id}
-                {owner_id $owner_id}
-                {theme_id [portal::theme::get_id -name $theme_name]}
-                {package_id $package_id}}]
+                {p_name "$name"}
+                {p_template_id $template_id}
+                {p_context_id $context_id}
+                {p_owner_id $owner_id}
+                {p_theme_id [portal::theme::get_id -name $theme_name]}
+                {p_package_id $package_id}}]
 
             set portal_id [package_instantiate_object -var_list $var_list portal]