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 -N -r1.115 -r1.116
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	18 Feb 2002 21:21:06 -0000	1.115
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	21 Feb 2002 19:01:11 -0000	1.116
@@ -1470,9 +1470,10 @@
         db_transaction {
             foreach element_id $element_ids {
 
-                remove_element_param_value -element_id $element_id \
-                        -key $key \
-                        -value $value_id
+                remove_element_param_value \
+                    -element_id $element_id \
+                    -key $key \
+                    -value $value_id
 
                 if {![empty_string_p $extra_params]} {
                     check_key_value_list $extra_params