Index: dotlrn_packages/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/dotlrn_packages/packages/forums/www/message-post.tcl,v
diff -u -r1.1 -r1.2
--- dotlrn_packages/packages/forums/www/message-post.tcl	5 Aug 2008 01:31:05 -0000	1.1
+++ dotlrn_packages/packages/forums/www/message-post.tcl	5 Aug 2008 03:54:06 -0000	1.2
@@ -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"