Index: openacs-4/packages/notifications/tcl/delivery-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/delivery-method-procs.tcl,v
diff -u -N -r1.16.2.1 -r1.16.2.2
--- openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	6 Mar 2021 19:36:36 -0000	1.16.2.1
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	28 Dec 2021 11:40:24 -0000	1.16.2.2
@@ -85,12 +85,13 @@
 } {
     Register a new delivery method with the notification service.
 } {
-    set extra_vars [ns_set create]
+    set extra_vars [ns_set create s \
+                        delivery_method_id $delivery_method_id \
+                        sc_impl_id $sc_impl_id \
+                        short_name $short_name \
+                        pretty_name $pretty_name \
+                       ]
 
-    oacs_util::vars_to_ns_set \
-        -ns_set $extra_vars \
-        -var_list {delivery_method_id sc_impl_id short_name pretty_name}
-    
     return [package_instantiate_object \
                 -extra_vars $extra_vars \
                 "notification_delivery_method"]