Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -r1.7 -r1.7.2.1
--- openacs-4/packages/forums/lib/message/post.tcl	5 Feb 2005 11:55:54 -0000	1.7
+++ openacs-4/packages/forums/lib/message/post.tcl	24 May 2006 12:13:34 -0000	1.7.2.1
@@ -143,12 +143,15 @@
       # rewritten to paginate internally rather than use the template paginator.
       cache flush "messages,forum_id=$forum_id*"
 
-      if {[empty_string_p $parent_id]} {
-          set redirect_url "[ad_conn package_url]message-view?message_id=$message_id"
-      } else {
-          set redirect_url "[ad_conn package_url]message-view?message_id=$parent_id"
-      }
+	if {[empty_string_p $parent_id]} {
+	    set redirect_message_id $message_id
+	} else {
+	    forum::message::get -message_id $parent_id -array message
+	    set redirect_message_id $message(root_message_id)
+	}
 
+	set redirect_url "[ad_conn package_url]message-view?message_id=[set redirect_message_id]\#$message_id"
+
       # Wrap the notifications URL
       if {![empty_string_p $subscribe_p] && $subscribe_p && [empty_string_p $parent_id]} {
           set notification_url [notification::display::subscribe_url \