Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -N -r1.233 -r1.234
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	3 Jun 2009 06:42:57 -0000	1.233
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	19 Jun 2009 13:34:07 -0000	1.234
@@ -581,7 +581,7 @@
           } elseif {[llength $rhs]>1} {
             lappend sql_clause "$lhs_var in ('[join $rhs ',']')"
             # the following statement is only needed, when we rely on tcl-only
-	    lappend tcl_clause "\[lsearch -exact -- {$rhs} \[my property $lhs\]\] > -1"
+	    lappend tcl_clause "\[lsearch -exact {$rhs} \[my property $lhs\]\] > -1"
           } else {
             lappend sql_clause "$lhs_var $sql_op($op) '$rhs'"
             # the following statement is only needed, when we rely on tcl-only