Index: openacs-4/packages/news/www/admin/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/news/www/admin/approve.tcl	9 Sep 2013 17:34:18 -0000	1.6
+++ openacs-4/packages/news/www/admin/approve.tcl	30 Sep 2013 10:51:35 -0000	1.7
@@ -41,7 +41,7 @@
 
 
 # get most likely revision_id if not supplied
-if {[empty_string_p $revision_id]} {
+if {$revision_id eq ""} {
     set revision_select [db_map revision_select]
 } else {
     set revision_select "'$revision_id' as revision_id,"