Index: openacs-4/packages/forums/www/message-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/www/message-view.tcl,v
diff -u -r1.36 -r1.37
--- openacs-4/packages/forums/www/message-view.tcl	22 May 2007 09:42:09 -0000	1.36
+++ openacs-4/packages/forums/www/message-view.tcl	15 Jun 2007 11:53:51 -0000	1.37
@@ -83,12 +83,7 @@
 if { [forum::use_ReadingInfo_p] && [string equal $message(state) approved] } {
     set msg_id $message(root_message_id)
     set user_id [ad_verify_and_get_user_id]
-    set db_antwort [db_string forums_reading_info__user_add_msg {
-        select forums_reading_info__user_add_msg (
-            :msg_id,
-            :user_id
-        );
-    }]
+    set db_antwort [db_exec_plsql forums_reading_info__user_add_msg {}]
 }
 
 set context [list [list "./forum-view?forum_id=$message(forum_id)" "$message(forum_name)"]]