Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	18 Jul 2018 10:31:09 -0000	1.10
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	18 Jul 2018 16:13:06 -0000	1.11
@@ -375,9 +375,14 @@
     -aggregator_id:required
     -package_id:required
 } {
-
-    db_foreach select_feeds {} {
-
+    Subscribe aggregator to every pre-subscribed feed for the
+    specified package.
+} {
+    foreach source_id [db_list select_feeds {
+       select source_id
+         from na_presubscribed_feeds
+        where package_id = :package_id
+    }] {
         news_aggregator::subscription::new \
             -aggregator_id $aggregator_id \
             -source_id $source_id