Index: openacs-4/packages/news/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/index.tcl,v
diff -u -N -r1.21 -r1.22
--- openacs-4/packages/news/www/index.tcl	7 Aug 2017 23:48:12 -0000	1.21
+++ openacs-4/packages/news/www/index.tcl	15 Nov 2017 13:42:33 -0000	1.22
@@ -38,7 +38,7 @@
     set title [apm_instance_name_from_id $package_id]
     set view_clause [db_map view_clause_live]
 
-    if { [db_string archived_p {}]} {
+    if { [db_0or1row archived_p {}]} {
         lappend actions_list [_ news.Show_archived_news] \
             [export_vars -base [ad_conn url] {{view archive}}] \
             [_ news.Show_archived_news]
@@ -49,7 +49,7 @@
     set title [apm_instance_name_from_id $package_id]
     set view_clause [db_map view_clause_archived]
 
-    if { [db_string live_p {}] } {
+    if { [db_0or1row live_p {}] } {
         lappend actions_list [_ news.Show_live_news] \
             [export_vars -base [ad_conn url] {{view live}}] \
             [_ news.Show_live_news]