Index: openacs-4/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-sc-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/forums/tcl/forums-sc-procs.tcl	17 Nov 2006 20:31:53 -0000	1.9
+++ openacs-4/packages/forums/tcl/forums-sc-procs.tcl	20 Sep 2008 12:10:28 -0000	1.10
@@ -33,7 +33,7 @@
 
     forum::message::get -message_id $message_id -array message
 
-    if { ![empty_string_p $message(parent_id)] } {
+    if { $message(parent_id) ne "" } {
         ns_log Notice "forum::message::datasource was called with a message_id that has a parent - skipping: $message_id"
         return {object_id {} name {} charter {} mime {} storage_type {}}
     }
@@ -50,7 +50,7 @@
         set root_subject $message(subject)
         regexp {^(?:Re: )+(.*)$} $subject match subject
 
-        if { [string compare $subject $root_subject] != 0 } {
+        if { $subject ne $root_subject  } {
             # different subject
             append combined_content "$subject\n\n"
         }