Index: openacs-4/packages/search/tcl/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/search-procs.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/search/tcl/search-procs.tcl	17 Sep 2003 10:06:10 -0000	1.10
+++ openacs-4/packages/search/tcl/search-procs.tcl	26 Sep 2003 05:44:51 -0000	1.11
@@ -98,11 +98,11 @@
     upvar $_txt txt
     upvar $_data data
 
-    switch $mime {
-        {text/plain} {
+    switch -glob -- $mime {
+        {text/plain*} {
             set txt $data
         }
-        {text/html} {
+        {text/html*} {
             set txt $data
         }
     }