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.21 -r1.22
--- openacs-4/packages/notifications/tcl/notification-procs.tcl	25 Apr 2018 19:23:27 -0000	1.21
+++ openacs-4/packages/notifications/tcl/notification-procs.tcl	9 May 2018 15:33:33 -0000	1.22
@@ -61,7 +61,7 @@
         set intervals [db_list_of_lists select_intervals {}]
         if { $localized_p } {
             # build pretty names for intervals
-            set intervals_pretty {}
+            set intervals_pretty [list]
             foreach elm $intervals {
                 lassign $elm elm_name elm_id
                 lappend intervals_pretty [list [_ notifications.${elm_name}] $elm_id]
@@ -220,7 +220,7 @@
                 }
                 array set default_request $default_request_data
 
-                array set request {}
+                array set request [list]
 
                 # Start with the existing requests for the original object_id
                 db_foreach select_notification_requests {} -column_array row {