Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql,v
diff -u -N -r1.3 -r1.3.2.1
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql	20 Nov 2017 13:34:01 -0000	1.3
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-oracle.xql	23 Feb 2021 15:36:51 -0000	1.3.2.1
@@ -3,16 +3,6 @@
 <queryset>
    <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-<fullquery name="acs_message_p.acs_message_p">      
-      <querytext>
-      
-	begin
-	    :1 := acs_message.message_p(:message_id);
-	end;
-    
-      </querytext>
-</fullquery>
- 
 <fullquery name="acs_messaging_first_ancestor.acs_message_first_ancestor">      
       <querytext>
       
Index: openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql,v
diff -u -N -r1.7 -r1.7.2.1
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql	20 Nov 2017 13:34:01 -0000	1.7
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs-postgresql.xql	23 Feb 2021 15:36:51 -0000	1.7.2.1
@@ -3,12 +3,6 @@
 <queryset>
    <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-<fullquery name="acs_message_p.acs_message_p">      
-      <querytext>
-	    select acs_message__message_p(:message_id);
-      </querytext>
-</fullquery>
- 
 <fullquery name="acs_messaging_first_ancestor.acs_message_first_ancestor">
     <querytext>
         select acs_message__first_ancestor(:message_id) as ancestor_id 
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 -N -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	18 Feb 2021 14:49:13 -0000	1.9.2.2
+++ openacs-4/packages/acs-messaging/tcl/acs-messaging-procs.tcl	23 Feb 2021 15:36:51 -0000	1.9.2.3
@@ -11,7 +11,10 @@
 } {
     Check if an integer is a valid OpenACS message id.
 } {
-    return [string equal [db_exec_plsql acs_message_p {}] "t"]
+    return [db_0or1row is_message {
+        select 1 from acs_messages
+        where message_id = :message_id
+    }]
 }
 
 ad_page_contract_filter acs_message_id { name value } {