Index: openacs-4/packages/forums/www/message-email.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-email.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/forums/www/message-email.tcl	13 Dec 2007 14:22:54 -0000	1.15
+++ openacs-4/packages/forums/www/message-email.tcl	20 Sep 2008 12:10:28 -0000	1.16
@@ -47,7 +47,7 @@
 }
 
 set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]
-if {![empty_string_p $message(parent_id)]} {
+if {$message(parent_id) ne ""} {
     lappend context [list "./message-view?message_id=$message(root_message_id)" "[_ forums.Entire_Thread]"]
 }
 lappend context [list "./message-view?message_id=$message(message_id)" "$message(subject)"]