Index: openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/test/Attic/notifications-test-procs.tcl,v
diff -u -N -r1.1.2.6 -r1.1.2.7
--- openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl	8 Jul 2022 14:53:08 -0000	1.1.2.6
+++ openacs-4/packages/notifications/tcl/test/notifications-test-procs.tcl	8 Jul 2022 15:16:24 -0000	1.1.2.7
@@ -141,7 +141,7 @@
             foreach m $all_delivery_methods {
                 lassign $m id name
                 aa_equals "Lookup delivery method '$name' returns the right id" \
-                    [notification::delivery::get_id -name $name] $id
+                    [notification::delivery::get_id -short_name $name] $id
             }
 
             set one_delivery_method_id [lindex $delivery_methods 0 1]