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.3 -r1.4
--- openacs-4/packages/news-aggregator/www/aggregator-delete.tcl	7 Apr 2018 19:25:21 -0000	1.3
+++ openacs-4/packages/news-aggregator/www/aggregator-delete.tcl	9 Apr 2018 11:55:35 -0000	1.4
@@ -17,7 +17,7 @@
     # 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 { [info exists $new_default_aggregator] && [set $new_default_aggregator] ne "" } {
+    if { $$new_default_aggregator ne "" } {
         news_aggregator::aggregator::set_user_default \
             -user_id $user_id \
             -aggregator_id $new_default_aggregator