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