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.5 -r1.16.2.6
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	25 Oct 2002 18:56:43 -0000	1.16.2.5
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 Dec 2002 16:56:37 -0000	1.16.2.6
@@ -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 [subst $error_message]
+                    template::element set_error $form_name $element_name [uplevel [subst $error_message]]
                 }
             }
         }