Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.126 -r1.127
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	14 Dec 2008 21:43:22 -0000	1.126
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	23 Dec 2008 09:51:58 -0000	1.127
@@ -1473,8 +1473,7 @@
 
     set extra_where_clause ""
     if {[my exists glob]} {
-      set glob [string map [list * %] $glob]
-      set extra_where_clause " and ci.name like '$glob'"
+      append extra_where_clause [::xowiki::Includelet glob_clause $glob]
     }
 
     set package_id [[my object] package_id]