Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -N -r1.29 -r1.29.2.1
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	10 Feb 2011 18:18:06 -0000	1.29
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	26 May 2011 19:44:23 -0000	1.29.2.1
@@ -842,7 +842,7 @@
 
 
 	# Check the name of the argument to passed in the form, ignore if not valid
-        if { [regexp -nocase -- {^[a-z0-9_\.\:]*$}  [ns_set key $form $form_counter_i] ] } {
+        if { [regexp -nocase -- {^[a-z0-9_\-\.\:]*$}  [ns_set key $form $form_counter_i] ] } {
         set actual_name [ns_set key $form $form_counter_i]
 
         # The name of the formal argument in the page
@@ -959,7 +959,7 @@
             }
         }
     } else {
-        ns_log Error "ad_page_contract: attempt to use a nonstandard variable name in form."
+        ns_log Error "ad_page_contract: attempt to use a nonstandard variable name in form.  [ns_set key $form $form_counter_i]  "
     }
 }