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.10.4.1
--- 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 Nov 2013 08:23:58 -0000	1.10.4.1
@@ -149,7 +149,7 @@
       -datatype text \
       -widget text \
       -html {size 60} \
-      -validate { {expr ![empty_string_p [string trim $value]]} {Forum Name can not be blank} }
+      -validate { {expr [string trim $value] ne ""} {Forum Name can not be blank} }
 
     template::element create $form_name ${prefix}charter \
       -label [_ forums.Charter] \