Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Oct 2007 07:33:45 -0000	1.61
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	15 Sep 2009 22:58:32 -0000	1.62
@@ -1227,7 +1227,8 @@
             upvar $arg value
             ad_set_element_value -element $arg -- $value
         } else {
-            ad_set_element_value -element [lindex $arg 0] -- [lindex $arg 1]
+            set value [uplevel subst \{[lindex $arg 1]\}]
+            ad_set_element_value -element [lindex $arg 0] -- $value
         }
     }
 }