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 -N -r1.6 -r1.7
--- openacs-4/packages/dynamic-types/tcl/event-procs.tcl	29 Mar 2018 15:03:01 -0000	1.6
+++ openacs-4/packages/dynamic-types/tcl/event-procs.tcl	25 Apr 2018 19:47:47 -0000	1.7
@@ -66,7 +66,7 @@
     if {[nsv_exists util_events $event]} {
         set handlers [nsv_get util_events $event]
 
-        set result [list]
+        set result {}
         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 [list]
+    set results {}
 
     foreach type_bin $type_bins {
         if {[nsv_exists util_events $type_bin]} {