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.10 -r1.11
--- openacs-4/packages/forums/tcl/form-procs.tcl	2 Sep 2008 22:13:14 -0000	1.10
+++ openacs-4/packages/forums/tcl/form-procs.tcl	27 Oct 2014 16:41:37 -0000	1.11
@@ -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 ![empty_string_p [string trim $value]]} {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 \
+	-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
+	-validate { {expr {[string length $value] <= 4000} } {#forums.charter_max_chars#} } \
+								-optional
 
     template::element create $form_name ${prefix}presentation_type \
       -label [_ forums.Presentation] \