Index: openacs-4/packages/rss-support/www/subscrs-include.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/www/subscrs-include.tcl,v
diff -u -r1.5 -r1.5.14.1
--- openacs-4/packages/rss-support/www/subscrs-include.tcl	23 Feb 2005 12:33:22 -0000	1.5
+++ openacs-4/packages/rss-support/www/subscrs-include.tcl	27 Aug 2013 11:25:28 -0000	1.5.14.1
@@ -1,18 +1,18 @@
-if [info exists user_id] {
+if {[info exists user_id]} {
     set maybe_restrict_to_user "and creation_user = :user_id"
 } else {
     set maybe_restrict_to_user ""
 }
 
 db_multirow -extend { lastbuild_pretty } subscrs get_subscrs {} {
-    if {![empty_string_p $lastbuild_ansi]} { 
+    if {$lastbuild_ansi ne ""} { 
         set lastbuild_ansi [lc_time_system_to_conn $lastbuild_ansi]
         set lastbuild_pretty [lc_time_fmt $lastbuild_ansi "%x %X"]
     } else { 
         set lastbuild_pretty "never built"
     }
 
-    if [string equal $channel_title ""] {
+    if {$channel_title eq ""} {
 	set channel_title "Subscription #$subscr_id"
     }
 }