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 -r1.151 -r1.152
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Jul 2008 11:38:32 -0000	1.151
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Jul 2008 16:17:27 -0000	1.152
@@ -494,9 +494,12 @@
         set lhs [string trim $lhs]
         if {[string range $lhs 0 0] eq "_"} {
           set sql_var [string range $lhs 1 end]
-          foreach p [split $rhs_expr |] {
-            lappend sql_clause "$sql_var $sql_op($op) '$p'"
-          }
+	  set rhs [split $rhs_expr |] 
+	  if {[llength $rhs]>1} {
+	    lappend sql_clause "$sql_var in ('[join $rhs ',']')"
+	  } else {
+            lappend sql_clause "$sql_var $sql_op($op) '$rhs'"
+	  }
         } else {
           set hleft [my h_double_quote $lhs]
           set tleft "\$__ia($lhs)"