Index: openacs.org-dev/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-view.tcl,v
diff -u -r1.1.1.2 -r1.1.1.3
--- openacs.org-dev/packages/forums/www/message-view.tcl	31 Jul 2002 16:31:16 -0000	1.1.1.2
+++ openacs.org-dev/packages/forums/www/message-view.tcl	8 Oct 2002 15:47:12 -0000	1.1.1.3
@@ -4,7 +4,7 @@
 
     @author Ben Adida (ben@openforce.net)
     @creation-date 2002-05-25
-    @version $Id$
+    @cvs-id $Id$
 
 } {
     message_id:integer,notnull
@@ -102,11 +102,13 @@
     set notification_chunk ""
 }
 
-set context_bar [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
+set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
 if {![empty_string_p $message(parent_id)]} {
-    lappend context_bar [list "./message-view?message_id=$message(root_message_id)" "Entire Thread"]
+    lappend context [list "./message-view?message_id=$message(root_message_id)" "Entire Thread"]
+    lappend context {One Message}
+} else {
+    lappend context {One Thread}
 }
-lappend context_bar {One Message}
 
 if {[string equal $forum(presentation_type) flat]} {
     ad_return_template "message-view-flat"