Index: openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	7 Aug 2017 23:48:29 -0000	1.6
+++ openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	21 Oct 2021 11:48:31 -0000	1.6.2.1
@@ -42,25 +42,9 @@
     relative url for that node.  Returns empty string
     if the package is not mounted.
 } {
-    return [util_memoize [list rss_first_url_for_package_id_helper $package_id]]
+    return [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 }
 
-ad_proc -private rss_first_url_for_package_id_helper {
-    package_id
-} {
-    Does the actual work for rss_first_url_for_package_id.
-} {
-    set url ""
-
-    if {[db_0or1row first_node_id {}]} {
-	db_foreach url_parts {} {
-	    append url ${name}
-	}
-    }
-
-    return $url
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
Index: openacs-4/packages/rss-support/tcl/rss-utilities-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-utilities-procs.xql,v
diff -u -r1.2.24.1 -r1.2.24.2
--- openacs-4/packages/rss-support/tcl/rss-utilities-procs.xql	31 Aug 2020 14:35:24 -0000	1.2.24.1
+++ openacs-4/packages/rss-support/tcl/rss-utilities-procs.xql	21 Oct 2021 11:48:32 -0000	1.2.24.2
@@ -8,11 +8,4 @@
     </querytext>
   </fullquery>
 
-  <fullquery name="rss_first_url_for_package_id_helper.first_node_id">
-    <querytext>
-        select min(node_id) from site_nodes
-        where object_id = :package_id
-    </querytext>
-  </fullquery>
-
 </queryset>