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 -r1.59.2.2 -r1.59.2.3
--- openacs-4/packages/forums/tcl/messages-procs.tcl	30 Mar 2019 19:51:36 -0000	1.59.2.2
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	7 Jan 2020 10:28:25 -0000	1.59.2.3
@@ -310,9 +310,10 @@
         set is_root_p [expr {$msg(parent_id) eq ""}]
 
 	if { $is_root_p && [forum::use_ReadingInfo_p] } {
-	    set db_antwort [db_string forums_reading_info__remove_msg {
-		select forums_reading_info__remove_msg (:message_id);
-	    }]
+            db_dml forums_reading_info_remove_msg {
+                delete from forums_reading_info
+                 where root_message_id = :message_id
+            }
 	}
 
         # Remove the notifications