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.190 -r1.191
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Oct 2008 10:23:53 -0000	1.190
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Oct 2008 18:23:29 -0000	1.191
@@ -519,7 +519,7 @@
     set vars [list]
     set sql_clause [list]
     foreach clause [split [string map [list $logical_op \x00] $input_expr] \x00] {
-      if {[regexp {^(\w+)\s*([=<>]|<=|>=)\s*(\w*)$} $clause _ lhs op rhs_expr]} {
+      if {[regexp {^(\w+)\s*([=<>]|<=|>=)\s*([[:alnum:]_|]*)$} $clause _ lhs op rhs_expr]} {
         set lhs [string trim $lhs]
         if {[string range $lhs 0 0] eq "_"} {
           set sql_var [string range $lhs 1 end]