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 -r1.65.6.11 -r1.65.6.12
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	28 Apr 2014 07:33:19 -0000	1.65.6.11
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	30 Jul 2014 22:23:27 -0000	1.65.6.12
@@ -669,7 +669,7 @@
             # If there is an equal sign, we're expecting the next token to be a value
             if { [lindex $equal_sign_idx 1] - [lindex $equal_sign_idx 0] < 0 } {
                 # No equal sign, no value
-                lappend attributes $attr_name
+		lappend attributes [list $attr_name]
                 if { [info exists attribute_array] } {
                     set attribute_array_var($attr_name) {}
                 }
@@ -780,6 +780,7 @@
                 set attr_count 0
                 foreach attribute $attr_list {
                     incr attr_count
+
 		    lassign $attribute attr_name attr_value
                     
                     if { ![info exists allowed_attribute($attr_name)]