Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl,v
diff -u -r1.8.2.2 -r1.8.2.3
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	18 Sep 2015 07:44:29 -0000	1.8.2.2
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	2 Jan 2016 17:21:32 -0000	1.8.2.3
@@ -11,11 +11,7 @@
 } {
     Check if an integer is a valid OpenACS message id.
 } {
-    return [string equal [db_exec_plsql acs_message_p {
-	begin
-	    :1 := acs_message.message_p(:message_id);
-	end;
-    }] "t"]
+    return [string equal [db_exec_plsql acs_message_p {}] "t"]
 }
 
 ad_page_contract_filter acs_message_id { name value } {
@@ -63,9 +59,7 @@
     the message_id of the first ancestor message (i.e. the message
     that originated the thread).
 } {
-    db_1row acs_message_first_ancestor {
-	select acs_message.first_ancestor(:message_id) as ancestor_id from dual
-    }
+    db_1row acs_message_first_ancestor {}
 
     return $ancestor_id
 }