Index: openacs-4/packages/dynamic-types/tcl/event-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dynamic-types/tcl/event-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dynamic-types/tcl/event-procs.tcl	25 Apr 2018 19:47:47 -0000	1.7
+++ openacs-4/packages/dynamic-types/tcl/event-procs.tcl	9 May 2018 15:33:31 -0000	1.8
@@ -66,7 +66,7 @@
     if {[nsv_exists util_events $event]} {
         set handlers [nsv_get util_events $event]
 
-        set result {}
+        set result [list]
         foreach handler $handlers {
             set cand_match [lindex $handler 0]
             set cand_script [lindex $handler 1]
@@ -122,7 +122,7 @@
         lappend type_bins "[join [lrange $type_elms 0 $i] "."]."
     }
 
-    set results {}
+    set results [list]
 
     foreach type_bin $type_bins {
         if {[nsv_exists util_events $type_bin]} {