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.66.2.6 -r1.66.2.7
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 May 2016 13:28:44 -0000	1.66.2.6
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	28 May 2016 13:33:08 -0000	1.66.2.7
@@ -789,18 +789,18 @@
     # :array and :sign flags in exported variables.
     if { [info exists export] } {
         foreach value $export {
-			set has_value_p [expr {[llength $value] >= 2}]
+            set has_value_p [expr {[llength $value] >= 2}]
             lassign $value name value
 
             # recognize supported flags
             lassign [split $name ":"] name mode
             set modes [split $mode ,]
 
-			# verify variable existance and nature
+            # verify variable existance and nature
             set var_exists_p [uplevel [list info  exists $name]]
             set is_array_p   [uplevel [list array exists $name]]
 
-			# arrays are automatically recognized, even if not specified
+            # arrays are automatically recognized, even if not specified
             set array_p    [expr {$is_array_p || "array" in $modes}]
             set sign_p     [expr {"sign"     in $modes}]
             set multiple_p [expr {"multiple" in $modes}]
@@ -813,8 +813,8 @@
                   set value [uplevel [list array get $name]]
                 # else, if a variable exists but it's not an array, throw error (as in export_vars)
                 } elseif {$var_exists_p} {
-				  error "variable \"$name\" should be an array"
-				# else, just ignore this export
+                    error "variable \"$name\" should be an array"
+                # else, just ignore this export
                 } else {continue}
               }
               # arrays generate one hidden formfield for each key