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] \
Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -r1.42.4.1 -r1.42.4.2
--- openacs-4/packages/forums/www/message-post.tcl	27 Nov 2013 08:15:42 -0000	1.42.4.1
+++ openacs-4/packages/forums/www/message-post.tcl	27 Nov 2013 08:23:58 -0000	1.42.4.2
@@ -27,11 +27,11 @@
     }
 }
 
-if { ![empty_string_p [ns_queryget formbutton:post]] } {
+if { [ns_queryget formbutton:post] ne "" } {
     set action post
-} elseif { ![empty_string_p [ns_queryget formbutton:preview]] } {
+} elseif { [ns_queryget formbutton:preview] ne "" } {
     set action preview
-} elseif { ![empty_string_p [ns_queryget formbutton:edit]] } {
+} elseif { [ns_queryget formbutton:edit] ne "" } {
     set action edit
 } else {
     set action ""