Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.148.2.25 -r1.148.2.26
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Sep 2020 17:59:34 -0000	1.148.2.25
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 Sep 2020 11:04:50 -0000	1.148.2.26
@@ -1033,9 +1033,10 @@
       if {[info exists check_function]} {
         set check_function [string toupper $check_function]
         set function_exists [::xo::dc get_value query_version {
-          select 1 from acs_function_args where function = :check_function
-          limit 1
-        } 0]
+          select case when exists
+          (select 1 from acs_function_args where function = :check_function)
+          then 1 else 0 end from dual
+        }]
         if {$function_exists} {
           # nothing to do
           return