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.51 -r1.52
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 May 2005 08:41:21 -0000	1.51
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 May 2005 19:12:48 -0000	1.52
@@ -658,7 +658,7 @@
                 return -code error "Validate block must have three arguments: element name, expression, error message"
             }
 
-            if {[template::element::exists $form_name $validate_element]} { 
+            if {![template::element::exists $form_name [lindex $validate_element 0]]} { 
                 return -code error "Element \"[lindex $validate_element 0]\" is not a form element"
             }
             lappend af_validate_elements($form_name) $validate_element