Index: openacs-4/packages/news-aggregator/www/subscription-copy.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscription-copy.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/news-aggregator/www/subscription-copy.tcl	25 Jan 2005 23:17:09 -0000	1.2
+++ openacs-4/packages/news-aggregator/www/subscription-copy.tcl	7 Apr 2018 16:58:52 -0000	1.3
@@ -18,7 +18,7 @@
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
 
-if { [exists_and_not_null copy_to] } {
+if { ([info exists copy_to] && $copy_to ne "") } {
 
     foreach source_id $source_ids {
         news_aggregator::subscription::copy \
@@ -32,7 +32,7 @@
 
 set aggregator_count [db_string count_aggregators {}]
 
-if { [string equal $aggregator_count "2"] } {
+if {$aggregator_count eq "2"} {
     set copy_to [db_string select_aggregator_id {}]
 
     foreach source $source_id {