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.39 -r1.40
--- openacs-4/packages/forums/www/message-post.tcl	23 Oct 2008 16:53:56 -0000	1.39
+++ openacs-4/packages/forums/www/message-post.tcl	9 Nov 2008 23:29:26 -0000	1.40
@@ -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"