Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/forums/www/message-view.tcl	28 Oct 2003 17:04:04 -0000	1.23
+++ openacs-4/packages/forums/www/message-view.tcl	28 Oct 2003 17:21:33 -0000	1.24
@@ -22,7 +22,7 @@
 # Load up the message information
 forum::message::get -message_id $message_id -array message
 
-set direct_url_base [export_vars -base [ad_conn url] { message_id }]
+set direct_url_base [export_vars -base [ad_conn url] { { message_id $message(root_message_id) } }]
 set message(direct_url) "$direct_url_base\#$message_id"
 
 # Check if the user has admin on the message
@@ -108,7 +108,7 @@
 set message(parent_number) {}
 if { [exists_and_not_null message(parent_id)] } {
     set message(parent_number) [expr [lsearch $message_id_list $message(parent_id)] + 1]
-    set message(parent_direct_url) "[export_vars -base message-view { { message_id $message(root_message_id) } }]\#$message(parent_id)"
+    set message(parent_direct_url) "$direct_url_base\#$message(parent_id)"
 }