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.52 -r1.53
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 May 2005 19:12:48 -0000	1.52
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	12 May 2005 20:24:39 -0000	1.53
@@ -658,7 +658,8 @@
                 return -code error "Validate block must have three arguments: element name, expression, error message"
             }
 
-            if {![template::element::exists $form_name [lindex $validate_element 0]]} { 
+            if {[lsearch $af_element_names($form_name) [lindex $validate_element 0]] == -1
+                && ![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