Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.45.2.8 -r1.45.2.9
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	16 Oct 2013 19:56:15 -0000	1.45.2.8
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	25 Nov 2013 09:36:37 -0000	1.45.2.9
@@ -413,11 +413,11 @@
 
     @param id          The form identifier.
     @param section     The current fieldset identifier
-	@param fieldset    A list of name-value attribute pairs for the FIELDSET tag
-	@param legendtext  The legend text
-	@param legend      A list of name-value attribute pairs for the LEGEND tag
+    @param fieldset    A list of name-value attribute pairs for the FIELDSET tag
+    @param legendtext  The legend text
+    @param legend      A list of name-value attribute pairs for the LEGEND tag
 } {
-	get_reference
+    get_reference
 
     # legend can't be empty
     if { $section ne "" && $legendtext eq "" } {
Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -r1.26.2.7 -r1.26.2.8
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	16 Oct 2013 19:56:15 -0000	1.26.2.7
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	25 Nov 2013 09:36:38 -0000	1.26.2.8
@@ -38,8 +38,8 @@
     # Get the next arg
     set next [lindex $argv [incr i]]
 
-    if { [string index $next 0] ne "-" ||
-         ! [regexp {[a-zA-Z*]} [string index $next 1] match] } {
+    if { [string index $next 0] ne "-" 
+	 || ![regexp {[a-zA-Z*]} [string index $next 1] match] } {
       
       # the next arg was not a switch so assume it is a parameter 
       set opts($opt) $next