Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/forums/lib/message/post.tcl	6 Jun 2007 17:02:43 -0000	1.14
+++ openacs-4/packages/forums/lib/message/post.tcl	15 Jun 2007 12:06:33 -0000	1.15
@@ -179,11 +179,7 @@
 
 if { [forum::use_ReadingInfo_p] } {
 	# remove reading info for this thread for all users (mark it unread)
-    set db_antwort [db_string forums_reading_info__remove_msg {
-        select forums_reading_info__remove_msg (
-            :parent_id
-        );
-    }]
+    set db_antwort [db_exec_plsql forums_reading_info__remove_msg {}]
 }
             # VGUERRA Redirecting to the first message ALWAYS
             forum::message::get -message_id $message_id -array msg