Index: openacs-4/packages/notifications/tcl/notification-reply-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-reply-procs.tcl,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	7 Aug 2017 23:48:13 -0000	1.6
+++ openacs-4/packages/notifications/tcl/notification-reply-procs.tcl	28 Dec 2021 11:40:24 -0000	1.6.2.1
@@ -24,13 +24,19 @@
     } {
         store a new reply
     } {
-        set extra_vars [ns_set create]
-
         # Truncate subject to 100 chars, which is the limit in the data model (for some obscure reason)
         set subject [string range $subject 0 99]
-        
-        oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {reply_id object_id type_id from_user subject content reply_date}
-        
+
+        set extra_vars [ns_set create s \
+                            reply_id $reply_id \
+                            object_id $object_id \
+                            type_id $type_id \
+                            from_user $from_user \
+                            subject $subject \
+                            content $content \
+                            reply_date $reply_date \
+                           ]
+
         set reply_id [package_instantiate_object -extra_vars $extra_vars notification_reply]
         
         return $reply_id