Index: openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl,v
diff -u -r1.18.2.10 -r1.18.2.11
--- openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	23 Feb 2023 14:47:12 -0000	1.18.2.10
+++ openacs-4/packages/bulk-mail/tcl/bulk-mail-procs.tcl	23 Feb 2023 15:04:49 -0000	1.18.2.11
@@ -72,22 +72,12 @@
         return [db_string select_bulk_mail_package_id {}]
     }
 
-    ad_proc -public url {
+    ad_proc -public url {} {
+        @return the base URL of the top most bulk-mail package.
     } {
-        returns the base url of the top most bulk_mail package
-    } {
-        return [util_memoize {bulk_mail::url_not_cached}]
+        return [site_node::get_url_from_object_id -object_id [bulk_mail::package_id]]
     }
 
-    ad_proc -private url_not_cached {
-    } {
-        returns the base url of the top most bulk_mail package
-    } {
-        set package_id [package_id]
-
-        return [db_string select_bulk_mail_url {}]
-    }
-
     ad_proc -public new {
         {-package_id ""}
         {-send_date ""}