Index: openacs-4/packages/forums/www/search.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/search.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/www/search.tcl	2 Jul 2002 02:00:01 -0000	1.1
+++ openacs-4/packages/forums/www/search.tcl	2 Jul 2002 14:29:58 -0000	1.2
@@ -28,6 +28,10 @@
 if {[form is_valid search]} {
     form get_values search search_text forum_id
 
+    # remove any special characters from the search text so we
+    # don't crash interMedia
+    regsub -all {[^A-Za-z0-9]} $search_text {} search_text
+
     set query search_all_forums
     if {![empty_string_p $forum_id]} {
         set query search_one_forum