Index: openacs-4/packages/forums/tcl/messages-format-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-format-procs.tcl,v
diff -u -r1.4 -r1.4.6.1
--- openacs-4/packages/forums/tcl/messages-format-procs.tcl	17 Dec 2003 15:45:30 -0000	1.4
+++ openacs-4/packages/forums/tcl/messages-format-procs.tcl	11 Aug 2006 23:39:03 -0000	1.4.6.1
@@ -12,7 +12,7 @@
         set subject "[_ forums.Re] $parent_subject"
         
         # trim multiple leading Re:
-        regsub "^(\s*Re:\s*)*" $subject {Re: } subject
+        regsub {^(\s*Re:\s*)*} $subject {Re: } subject
 
         return $subject
     }