Index: openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl,v
diff -u -N -r1.55 -r1.56
--- openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	27 Oct 2014 16:42:01 -0000	1.55
+++ openacs-4/packages/xotcl-core/tcl/30-widget-procs.tcl	15 Jun 2015 19:34:27 -0000	1.56
@@ -741,7 +741,7 @@
     set href [export_vars -base [ad_conn url] $query]
     html::a -href $href -title $title {
       html::t [my _ label]
-      html::img -src $img -alt "" -border 0
+      html::img -src $img -alt ""
     }
   }
 
@@ -805,7 +805,7 @@
     set name [my name]
     set value [$line set [my id]]
     html::input -type checkbox -name $name -value $value \
-        -id "$name,$value" \
+        -id "$name---$value" \
         -title "Mark/Unmark this row"
   }
 
@@ -885,7 +885,7 @@
 #
 
 Class ListWidget -superclass ::xo::OrderedComposite -instproc render {} {
-  html::ul {
+  html::ul -class plainlist {
     foreach o [my children] {
       html::li {
         $o render
@@ -936,12 +936,10 @@
     set ::_xo_need_js($name)  1
   }
   Page proc requireLink {-rel -type -title -href} {
-    regsub -all ' $title "'" title
-    regsub -all ' $href "'" href
     if {$::xo::use_template_head} {
       template::head::add_link -rel $rel -href $href -type $type -title $title
     } else {
-      set key "rel='$rel' type='$type' title='$title' href='$href'"
+      set key "rel='[ns_quotehtml $rel]' type='[ns_quotehtml $type]' title='[ns_quotehtml $title]' href='[ns_quotehtml $href]'"
       set ::_xo_need_link($key) 1
     }
   }