Index: openacs-4/packages/news-aggregator/www/subscription-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscription-move.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news-aggregator/www/subscription-move.tcl	20 Mar 2004 11:04:39 -0000	1.1
+++ openacs-4/packages/news-aggregator/www/subscription-move.tcl	7 Apr 2018 16:58:52 -0000	1.2
@@ -18,7 +18,7 @@
 set package_id [ad_conn package_id]
 set package_url [ad_conn package_url]
 
-if { [exists_and_not_null move_to] } {
+if { ([info exists move_to] && $move_to ne "") } {
 
     foreach source_id $source_ids {
         news_aggregator::subscription::move \
@@ -33,7 +33,7 @@
 
 set aggregator_count [db_string count_aggregators {}]
 
-if { [string equal $aggregator_count "2"] } {
+if {$aggregator_count eq "2"} {
     set move_to [db_string select_aggregator_id {}]
 
     foreach source $source_id {