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.40 -r1.41
--- openacs-4/packages/forums/www/message-post.tcl	9 Nov 2008 23:29:26 -0000	1.40
+++ openacs-4/packages/forums/www/message-post.tcl	27 Apr 2009 19:36:21 -0000	1.41
@@ -74,7 +74,7 @@
 #template::head::add_css -alternate -href /resources/forums/expand.css -media all -lang $lang -title "expand"
 
 if {[template::form::get_button message] ne "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 {$parent_id eq ""} {
         lappend context [_ forums.Post_a_Message]