Index: openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	20 Mar 2023 10:24:54 -0000	1.16
+++ openacs-4/packages/feed-parser/tcl/feed-parser-procs.tcl	20 Mar 2023 10:31:13 -0000	1.17
@@ -28,11 +28,16 @@
     return [dict get [util::http::get -url $url] page]
 }
 
-ad_proc -public feed_parser::sort_result {
+ad_proc -deprecated feed_parser::sort_result {
     {-result:required}
 } {
     Sort result list.
 
+    DEPRECATED: this proc is a trivial wrapper over lreverse. As it is
+    only used internally, it can be easily inlined.
+
+    @see lreverse
+
     @author Simon Carstensen
 } {
     return [lreverse $result]
@@ -320,7 +325,7 @@
         }
 
         set item_nodes [feed_parser::items_fetch -doc_node $doc_node]
-        set item_nodes [feed_parser::sort_result -result $item_nodes]
+        set item_nodes [lreverse $item_nodes]
         set items [list]
 
         foreach item_node $item_nodes {