Index: openacs-4/packages/forums/lib/message/row2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row2.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/forums/lib/message/row2.tcl	7 Aug 2017 23:48:11 -0000	1.4
+++ openacs-4/packages/forums/lib/message/row2.tcl	24 Jul 2018 18:54:44 -0000	1.5
@@ -70,10 +70,11 @@
 
 
 # Gets all the direct children of the main message
-set childs [db_list get_children "select message_id from $table_name \
-	where  parent_id = :parent_message_id or message_id = $parent_message_id  order by message_id"]
+set children [db_list get_children "select message_id from $table_name \
+	where parent_id = :parent_message_id or message_id = :parent_message_id \
+        order by message_id"]
 
-set is_direct_children [lsearch $childs $parent_message_id]
+set is_direct_children [lsearch $children $parent_message_id]
 if {$is_direct_children == -1 } {
     set is_direct_child 0
 } else {