Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -r1.17.2.3 -r1.17.2.4
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	24 Sep 2013 19:39:53 -0000	1.17.2.3
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	2 Oct 2013 22:55:57 -0000	1.17.2.4
@@ -213,7 +213,8 @@
             set item [lindex $opt 1]
             set value [lindex $opt 0]
             if { (!$multiple && $value eq $default ) 
-                 || ($multiple && [lsearch -exact $default $value] > -1)} {
+                 || ($multiple && $value in $default) 
+	     } {
                 append retval "<option selected value=\"$value\">$item</option>\n"
             } else {
                 append retval "<option value=\"$value\">$item</option>\n"
@@ -234,7 +235,8 @@
 	    set item [ns_set value $selection 0]
 	    set value [ns_set value $selection 1]
 	    if { (!$multiple && $value eq $default ) 
-		 || ($multiple && [lsearch -exact $default $value] > -1)} {
+		 || ($multiple && $value in $default)
+	    } {
 		append retval "<option selected=\"selected\" value=\"$value\">$item</option>\n"
 	    } else {
 		append retval "<option value=\"$value\">$item</option>\n"