Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.86 -r1.87
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	23 Dec 2008 09:51:58 -0000	1.86
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	23 Dec 2008 14:49:49 -0000	1.87
@@ -251,7 +251,7 @@
   ::xowiki::Includelet proc glob_clause {{-base_table ci} {-attribute name} value} {
     # Return a clause for name matching.
     # value uses * for matching
-    set glob [string map [list * %] $name]
+    set glob [string map [list * %] $value]
     return " and $base_table.$attribute like '$glob'"
   }
 
@@ -3361,7 +3361,7 @@
     }]
     set extra_where_clause { and mime_type like 'image/%'}
     if {$glob ne ""} {
-      append extra_where_clause [::xowiki::Includelet glob_clause $glob]
+      append extra_where_clause [::xowiki::Includelet glob_clause -base_table i $glob]
     }
     set listing [::xowiki::Includelet listing \
                      -package_id $package_id \