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 -r1.37 -r1.37.2.1
--- openacs-4/packages/forums/www/message-post.tcl	12 Mar 2008 05:26:43 -0000	1.37
+++ openacs-4/packages/forums/www/message-post.tcl	24 May 2008 10:06:37 -0000	1.37.2.1
@@ -74,7 +74,7 @@
 #template::head::add_css -alternate -href /resources/forums/expand.css -media all -lang $lang -title "expand"
 
 if {![string equal [template::form::get_button message] "preview"]} {
-    set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
+    set context [list [list "./forum-view?forum_id=$forum(forum_id)" [ad_quotehtml $forum(name)]]]
 
     if {[empty_string_p $parent_id]} {
         lappend context [_ forums.Post_a_Message]
@@ -83,7 +83,7 @@
         lappend context [_ forums.Post_a_Reply]
     }
 } else {
-    set context [list [list "./forum-view?forum_id=$forum_id" [ad_quotehtml $forum(name)]]]
+    set context [list [list "./forum-view?forum_id=$forum(forum_id)" [ad_quotehtml $forum(name)]]]
     lappend context "[_ forums.Post_a_Message]"
 
     ad_return_template "message-post-confirm"