Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/categories/tcl/widget-procs.tcl	12 Feb 2004 14:27:46 -0000	1.10
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	13 Dec 2004 15:05:09 -0000	1.11
@@ -20,7 +20,8 @@
     upvar $element_reference element
 
     if { [info exists element(html)] } {
-	array set attributes $element(html)
+      	array set attributes $element(html)
+      	array set ms_attributes $element(html)
     }
     array set attributes $tag_attributes
     array set ms_attributes $tag_attributes