Index: openacs-4/packages/dotlrn/www/register.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register.tcl,v
diff -u -r1.22.2.2 -r1.22.2.3
--- openacs-4/packages/dotlrn/www/register.tcl	29 Mar 2022 15:42:20 -0000	1.22.2.2
+++ openacs-4/packages/dotlrn/www/register.tcl	14 Apr 2023 13:25:19 -0000	1.22.2.3
@@ -101,9 +101,11 @@
 
         "
 
-            set package_id [site_node_apm_integration::get_child_package_id \
-                                -package_id [dotlrn_community::get_package_id $community_id] \
-                                -package_key [bulk_mail::package_key]]
+            set community_node_id [dotlrn_community::get_community_node_id $community_id]
+            set package_id [lindex [site_node::get_children \
+                                        -package_key [bulk_mail::package_key] \
+                                        -element object_id \
+                                        -node_id $community_node_id] 0]
 
             bulk_mail::new \
                     -package_id $package_id \