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 -r1.11 -r1.12
--- openacs-4/packages/forums/tcl/form-procs.tcl	27 Oct 2014 16:41:37 -0000	1.11
+++ openacs-4/packages/forums/tcl/form-procs.tcl	7 Aug 2017 23:48:11 -0000	1.12
@@ -156,8 +156,8 @@
 	-datatype richtext \
 	-widget richtext \
         -html {cols 60 rows 10 style {width: 100%}} \
-	-validate { {expr {[string length $value] <= 4000} } {#forums.charter_max_chars#} } \
-								-optional
+	-validate { {expr {[string length $value] <= 4000} } {\#forums.charter_max_chars#} } \
+	-optional
 
     template::element create $form_name ${prefix}presentation_type \
       -label [_ forums.Presentation] \
@@ -180,3 +180,9 @@
       -help_text [_ forums.help_new_threads] \
       -options [list [list [_ forums.Yes] 1] [list [_ forums.No] 0] ] 
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: