Index: openacs-4/packages/news-aggregator/www/aggregator-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/aggregator-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news-aggregator/www/aggregator-delete.tcl	20 Mar 2004 11:04:39 -0000	1.1
+++ openacs-4/packages/news-aggregator/www/aggregator-delete.tcl	7 Apr 2018 16:58:52 -0000	1.2
@@ -13,11 +13,11 @@
 set user_id [ad_conn user_id]
 set default_aggregator [db_string find_default {}]
 
-if { [string equal $delete_aggregator_id $default_aggregator] } {
+if {$delete_aggregator_id eq $default_aggregator} {
     # We are deleting the user's default aggregator
     # Set user's oldest aggregator as new default
     set new_default_aggregator [db_string select_oldest_aggregator {} -default ""]
-    if { [exists_and_not_null $new_default_aggregator] } {
+    if { ([info exists $new_default_aggregator] && $$new_default_aggregator ne "") } {
         news_aggregator::aggregator::set_user_default \
             -user_id $user_id \
             -aggregator_id $new_default_aggregator