Index: openacs-4/packages/news/www/preview.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/preview.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/news/www/preview.tcl	9 Sep 2013 17:34:18 -0000	1.29
+++ openacs-4/packages/news/www/preview.tcl	30 Sep 2013 10:51:35 -0000	1.30
@@ -30,7 +30,7 @@
 } -validate {
 
     check_revision_log -requires {action revision_log} {
-	if { ![string match $action "News Item"] && [empty_string_p $revision_log]} {
+	if { ![string match $action "News Item"] && $revision_log eq ""} {
 	    ad_complain "[_ news.lt_You_must_supply_a_rev]"
 	    return
 	}
@@ -126,7 +126,7 @@
     # the check will need to be added as a validator for each ad_form call.
 
     set errors [ad_html_security_check $publish_body]
-    if { ![empty_string_p $errors] } {
+    if { $errors ne "" } {
         ad_return_complaint 1 $errors
         ad_script_abort
     }