Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.67.2.26 -r1.67.2.27
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	21 Apr 2017 14:22:46 -0000	1.67.2.26
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	4 May 2017 10:44:59 -0000	1.67.2.27
@@ -813,9 +813,6 @@
                                         [ad_parameter_all_values_as_list -package_id [ad_acs_kernel_id] AllowedProtocol antispam] \
                                         [ad_parameter_all_values_as_list AllowedProtocol antispam]]
 
-        foreach tag $allowed_tags_list {
-            set allowed_tag([string tolower $tag]) 1
-        }
         foreach attribute $allowed_attributes_list {
             set allowed_attribute([string tolower $attribute]) 1
         }
@@ -852,10 +849,7 @@
 
                     set attr_list [ad_parse_html_attributes_upvar html i]
 
-                    set attr_count 0
                     foreach attribute $attr_list {
-                        incr attr_count
-
                         lassign $attribute attr_name attr_value
 
                         if { ![info exists allowed_attribute($attr_name)]