Index: openacs-4/packages/notifications/tcl/notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-procs.tcl,v
diff -u -r1.23.2.6 -r1.23.2.7
--- openacs-4/packages/notifications/tcl/notification-procs.tcl	8 Jul 2022 14:53:08 -0000	1.23.2.6
+++ openacs-4/packages/notifications/tcl/notification-procs.tcl	8 Jul 2022 15:06:09 -0000	1.23.2.7
@@ -225,7 +225,7 @@
                 if { $default_request_data eq "" } {
                     set default_request_data [list \
                             interval_id [notification::interval::get_id_from_name -name "instant"] \
-                            delivery_method_id [get_delivery_method_id -name "email"] \
+                            delivery_method_id [notification::delivery::get_id -name "email"] \
                             format "text"]
                 }
                 array set default_request $default_request_data