Index: openacs-4/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-post.tcl,v
diff -u -N -r1.27 -r1.28
--- openacs-4/packages/forums/www/message-post.tcl	12 Oct 2003 00:14:26 -0000	1.27
+++ openacs-4/packages/forums/www/message-post.tcl	7 Nov 2003 17:24:01 -0000	1.28
@@ -157,7 +157,8 @@
             }
         }
 
-        set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]]
+
+        set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
         lappend context "[_ forums.Post_a_Message]"
 
         ad_return_template message-post-confirm
@@ -253,7 +254,7 @@
 element set_properties message confirm_p -value 0
 element set_properties message subscribe_p -value 0
 
-set context [list [list "./forum-view?forum_id=$forum_id" "$forum(name)"]]
+set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
 if {![empty_string_p $parent_id]} {
     lappend context [list "./message-view?message_id=$parent_message(message_id)" "$parent_message(subject)"]
     lappend context [_ forums.Post_a_Reply]