Index: openacs-4/packages/forums/lib/message/thread-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/thread-chunk.tcl,v
diff -u -N -r1.11 -r1.12
--- openacs-4/packages/forums/lib/message/thread-chunk.tcl	9 Nov 2008 23:29:26 -0000	1.11
+++ openacs-4/packages/forums/lib/message/thread-chunk.tcl	27 Oct 2014 16:41:36 -0000	1.12
@@ -59,14 +59,14 @@
 set message(number) [expr {[lsearch $message_id_list $message(message_id)] + 1}]
 set message(parent_number) {}
 set message(parent_direct_url) ""
-if { [exists_and_not_null message(parent_id)] } {
+if { [info exists message(parent_id)] && $message(parent_id) ne "" } {
     set message(parent_number) [expr {[lsearch $message_id_list $message(parent_id)] + 1}]
     set message(parent_direct_url) "$direct_url_base\#msg_$message(parent_id)"
     set message(parent_root_url) [export_vars -base [ad_conn url] { { message_id $message(parent_id) } }]
 }
 
 set message(open_p) "t"
-set message(reply_p) [expr {$message(open_p) eq "t" || $message(user_id) eq [ad_conn user_id]}]
+set message(reply_p) [expr {$message(open_p) == "t" || $message(user_id) eq [ad_conn user_id]}]
 set message(tree_level) 0
 
 
@@ -97,7 +97,7 @@
     set parent_number [expr {[lsearch $message_id_list $parent_id] + 1}]
     set parent_direct_url "$direct_url_base\#msg_$parent_id"
     set parent_root_url [export_vars -base [ad_conn url] {{message_id $parent_id}}]
-    set reply_p [expr {$open_p eq "t" || $user_id eq [ad_conn user_id]}]
+    set reply_p [expr {$open_p == "t" || $user_id eq [ad_conn user_id]}]
     
     # DEDS: get the response ids the tcl way or else we need to hit
     # the db for each response to count its children
@@ -131,7 +131,7 @@
 
 set message(tree_level) 0
 
-if {[exists_and_not_null alt_template]} {
+if {[info exists alt_template] && $alt_template ne ""} {
   ad_return_template $alt_template
 }