Index: openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	7 Apr 2018 11:04:55 -0000	1.5
+++ openacs-4/packages/news-aggregator-portlet/www/news-aggregator-portlet.tcl	1 Sep 2020 16:39:21 -0000	1.6
@@ -17,7 +17,11 @@
 set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0]
 
 set package_id [lindex $list_of_package_ids 0]        
-set aggregator_id [db_string get_aggregator_id "select aggregator_id from na_aggregators where package_id = :package_id limit 1" -default ""]
+set aggregator_id [db_string get_aggregator_id {
+    select min(aggregator_id)
+      from na_aggregators
+     where package_id = :package_id
+} -default ""]
 
 if {$aggregator_id eq ""} {
     # We have a problem!