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.18 -r1.19
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	30 Nov 2002 17:23:55 -0000	1.18
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	30 Dec 2002 22:15:28 -0000	1.19
@@ -425,6 +425,10 @@
     array set af_element_parameters [list] 
 
     if { [info exists form] } {
+
+        # Remove comment lines in form section (DanW)
+        regsub -all -line -- {^\s*\#.*$} $form "" form
+
         foreach element $form {
             set element_name_part [lindex $element 0]
 
@@ -470,6 +474,10 @@
     set af_validate_elements($form_name) [list]
 
     if { [info exists validate] } {
+
+        # Remove comment lines in validate section (DanW)
+        regsub -all -line -- {^\s*\#.*$} $validate "" validate
+
         foreach validate_element $validate {
             if { [llength $validate_element] != 3 } {
                 return -code error "Validate block must have three arguments: element name, expression, error message"