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.37 -r1.38
--- openacs-4/packages/forums/tcl/messages-procs.tcl	15 May 2007 20:14:40 -0000	1.37
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	22 May 2007 09:42:09 -0000	1.38
@@ -268,6 +268,15 @@
 	    callback forum::message_delete -package_id [ad_conn package_id] -message_id $message_id
 	}
 
+			if { [forum::use_ReadingInfo_p] && [expr { [db_string is_root "select parent_id from forums_messages where message_id = :message_id"] == "" } ] } {
+				set db_antwort [db_string forums_reading_info__remove_msg {
+        select forums_reading_info__remove_msg (
+            :message_id
+        );
+    }]
+			}
+
+
         # Remove the notifications
         notification::request::delete_all -object_id $message_id