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 } {