Index: openacs-4/packages/webmail-system/tcl/webmail-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/webmail-system/tcl/webmail-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/webmail-system/tcl/webmail-procs.tcl	28 Mar 2018 21:55:34 -0000	1.5
+++ openacs-4/packages/webmail-system/tcl/webmail-procs.tcl	25 Apr 2018 19:47:48 -0000	1.6
@@ -675,7 +675,7 @@
         @param attr       The list of attributes to disable
         Disables all passed  HTML Attributes.
     } {
-        set attributes [list]
+        set attributes {}
         for { set i [string first < $html] } { $i != -1 } { set i [string first < $html $i] } {
            incr i
            regexp -indices -start $i {\A/?([-_a-zA-Z0-9]+)\s*} $html match name_idx