Index: openacs-4/packages/forums/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/form-procs.tcl,v
diff -u -N -r1.13.2.2 -r1.13.2.3
--- openacs-4/packages/forums/tcl/form-procs.tcl	19 Jun 2019 16:41:38 -0000	1.13.2.2
+++ openacs-4/packages/forums/tcl/form-procs.tcl	19 Jun 2019 16:43:21 -0000	1.13.2.3
@@ -123,7 +123,7 @@
     {-prefix {}}
     form_name
 } {
-    Constructs the elements of a  form for searching for a term 
+    Constructs the elements of a  form for searching for a term
     optionally in a particular forum
 } {
   template::element create $form_name ${prefix}search_text \
@@ -145,19 +145,19 @@
     Constructs the elements of a form for creating/editing a forum
 } {
     template::element create $form_name ${prefix}name \
-	-label [_ forums.Name] \
-	-datatype text \
-	-widget text \
-	-html {size 60} \
-	-validate { {expr {[string trim $value] ne ""}} {Forum Name can not be blank} }
+      -label [_ forums.Name] \
+      -datatype text \
+      -widget text \
+      -html {size 60} \
+      -validate { {expr {[string trim $value] ne ""}} {Forum Name can not be blank} }
 
     template::element create $form_name ${prefix}charter \
-	-label [_ forums.Charter] \
-	-datatype richtext \
-	-widget richtext \
-        -html {cols 60 rows 10 style {width: 100%}} \
-	-validate { {expr {[string length $value] <= 4000} } {\#forums.charter_max_chars#} } \
-	-optional
+      -label [_ forums.Charter] \
+      -datatype richtext \
+      -widget richtext \
+      -html {cols 60 rows 10 style {width: 100%}} \
+      -validate { {expr {[string length $value] <= 4000} } {\#forums.charter_max_chars#} } \
+      -optional
 
     template::element create $form_name ${prefix}presentation_type \
       -label [_ forums.Presentation] \