Index: openacs-4/packages/forums/lib/message/post-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/lib/message/post-oracle.xql	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/post-oracle.xql	15 Jun 2007 12:06:33 -0000	1.2
@@ -9,4 +9,13 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="forums_reading_info__remove_msg">
+        <querytext>
+	begin
+	  forum_reading_info.remove_msg(:parent_id);
+	end;
+        </querytext>
+    </fullquery>
+
+
 </queryset>
Index: openacs-4/packages/forums/lib/message/post-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/forums/lib/message/post-postgresql.xql	17 Dec 2003 15:45:29 -0000	1.1
+++ openacs-4/packages/forums/lib/message/post-postgresql.xql	15 Jun 2007 12:06:33 -0000	1.2
@@ -9,4 +9,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="forums_reading_info__remove_msg">
+        <querytext>
+        select forums_reading_info__remove_msg (
+            :parent_id
+        );
+        </querytext>
+    </fullquery>
+
+
+
 </queryset>
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 -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