Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -N -r1.59.2.9 -r1.59.2.10
--- openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 12:16:14 -0000	1.59.2.9
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 12:20:44 -0000	1.59.2.10
@@ -331,15 +331,7 @@
 
         forum::message::get -message_id $message_id -array msg
         set forum_id  $msg(forum_id)
-        set is_root_p [expr {$msg(parent_id) eq ""}]
 
-	if { $is_root_p && [forum::use_ReadingInfo_p] } {
-            db_dml forums_reading_info_remove_msg {
-                delete from forums_reading_info
-                 where root_message_id = :message_id
-            }
-	}
-
         # Remove the notifications
         notification::request::delete_all -object_id $message_id