Index: openacs-4/packages/notifications/tcl/notification-type-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-type-procs.tcl,v
diff -u -r1.16.2.2 -r1.16.2.3
--- openacs-4/packages/notifications/tcl/notification-type-procs.tcl	18 May 2020 21:20:20 -0000	1.16.2.2
+++ openacs-4/packages/notifications/tcl/notification-type-procs.tcl	28 Dec 2021 11:40:24 -0000	1.16.2.3
@@ -33,8 +33,13 @@
     } {
         create a new notification type. Must provide a service contract implementation ID.
     } {
-        set extra_vars [ns_set create]
-        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {type_id sc_impl_id short_name pretty_name description}
+        set extra_vars [ns_set create s \
+                            type_id $type_id \
+                            sc_impl_id $sc_impl_id \
+                            short_name $short_name \
+                            pretty_name $pretty_name \
+                            description $description \
+                           ]
 
         set type_id [package_instantiate_object -extra_vars $extra_vars notification_type]