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 -N -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