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.16.2.12 -r1.16.2.13
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	17 Mar 2003 14:48:03 -0000	1.16.2.12
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	20 Mar 2003 12:48:46 -0000	1.16.2.13
@@ -680,12 +680,16 @@
                     after_html -
                     result_datatype -
                     search_query -
-                    search_query_name {
+                    search_query_name -
+                    maxlength {
                         if { [llength $extra_arg] > 2 || [llength $extra_arg] == 1 } {
                             return -code error "element $element_name: \"$extra_arg\" requires exactly one argument"
                         }
                         lappend form_command [uplevel [list subst [lindex $extra_arg 1]]]
                     }
+                    default {
+                        ns_log Error "Unknown switch '[lindex $extra_arg 0]' to ad_form on url [util_get_current_url]"
+                    }
                 }
             }
             eval $form_command