Index: openacs-4/packages/news/tcl/news-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-oracle.xql,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/news/tcl/news-procs-oracle.xql	5 Oct 2021 10:19:17 -0000	1.8.2.1
+++ openacs-4/packages/news/tcl/news-procs-oracle.xql	5 Oct 2021 10:21:59 -0000	1.8.2.2
@@ -37,29 +37,4 @@
       </querytext>
 </fullquery>
 
-
-<fullquery name="news__rss_datasource.get_news_items">
-        <querytext>
-    select * from (
-        select cn.*,
-        ci.item_id,
-        cr.content,
-        cr.title,
-        cr.mime_type,
-        cr.description,
-        to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified
-        from cr_news cn,
-        cr_revisions cr,
-        cr_items ci,
-        acs_objects o
-        where cn.package_id=:summary_context_id
-        and cr.revision_id=cn.news_id
-        and cn.news_id=o.object_id
-        and cr.item_id=ci.item_id
-        and cr.revision_id=ci.live_revision
-        order by o.last_modified desc
-     ) where rownum <= $limit
-        </querytext>
-</fullquery>
-
 </queryset>
Index: openacs-4/packages/news/tcl/news-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs-postgresql.xql,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/news/tcl/news-procs-postgresql.xql	5 Oct 2021 10:19:17 -0000	1.7.2.1
+++ openacs-4/packages/news/tcl/news-procs-postgresql.xql	5 Oct 2021 10:22:00 -0000	1.7.2.2
@@ -32,28 +32,4 @@
       </querytext>
 </fullquery>
 
-
-<fullquery name="news__rss_datasource.get_news_items">
-        <querytext>
-        select cn.*,
-        ci.item_id,
-        cr.content,
-        cr.title,
-        cr.mime_type,
-        cr.description,
-        to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified
-        from cr_news cn,
-        cr_revisions cr,
-        cr_items ci,
-        acs_objects o
-        where cn.package_id=:summary_context_id
-        and cr.revision_id=cn.news_id
-        and cn.news_id=o.object_id
-        and cr.item_id=ci.item_id
-        and cr.revision_id=ci.live_revision
-        order by o.last_modified desc
-        limit $limit
-        </querytext>
-</fullquery>
-
 </queryset>
Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.41.2.1 -r1.41.2.2
--- openacs-4/packages/news/tcl/news-procs.tcl	12 Apr 2021 13:27:19 -0000	1.41.2.1
+++ openacs-4/packages/news/tcl/news-procs.tcl	5 Oct 2021 10:22:00 -0000	1.41.2.2
@@ -233,7 +233,26 @@
     set items [list]
     set counter 0
     set package_url [news_util_get_url $summary_context_id]
-    db_foreach get_news_items {} {
+    db_foreach get_news_items {
+        select cn.*,
+        ci.item_id,
+        cr.content,
+        cr.title,
+        cr.mime_type,
+        cr.description,
+        to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified
+        from cr_news cn,
+        cr_revisions cr,
+        cr_items ci,
+        acs_objects o
+        where cn.package_id=:summary_context_id
+        and cr.revision_id=cn.news_id
+        and cn.news_id=o.object_id
+        and cr.item_id=ci.item_id
+        and cr.revision_id=ci.live_revision
+        order by o.last_modified desc
+        fetch first :limit rows only
+    } {
         set entry_url [export_vars -base "[ad_url]${package_url}item" {item_id}]
 
         # content doesn't need to be convert to plain text. moreover it will look much