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 -N -r1.16.2.6 -r1.16.2.7
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Dec 2002 16:56:37 -0000	1.16.2.6
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Dec 2002 17:02:46 -0000	1.16.2.7
@@ -793,7 +793,7 @@
             foreach {element_name validate_expr error_message} $validate_element {
                 if { ![template::element error_p $form_name $element_name] && \
                     ![uplevel #$level [list expr $validate_expr]] } {
-                    template::element set_error $form_name $element_name [uplevel [subst $error_message]]
+                    template::element set_error $form_name $element_name [uplevel [list subst $error_message]]
                 }
             }
         }