Index: openacs-4/packages/acs-admin/www/apm/parameter-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add.tcl,v
diff -u -N -r1.12 -r1.12.2.1
--- openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	16 May 2018 17:08:51 -0000	1.12
+++ openacs-4/packages/acs-admin/www/apm/parameter-add.tcl	1 Sep 2020 17:21:39 -0000	1.12.2.1
@@ -20,9 +20,9 @@
 # This to filter out sections such as "all" and $package_key, which
 # have special meaning and are not supposed to be created.
 if {![db_string get_section {
-    select exists (select 1 from apm_parameters
-                   where section_name = :section_name
-                   and package_key = :package_key) from dual}]} {
+    select case when exists (select 1 from apm_parameters
+                             where section_name = :section_name
+                             and package_key = :package_key) then 1 else 0 end from dual}]} {
     set section_name ""
 }
 
Index: openacs-4/packages/acs-content-repository/tcl/test/content-extlink-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/test/Attic/content-extlink-procs.tcl,v
diff -u -N -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-content-repository/tcl/test/content-extlink-procs.tcl	26 Aug 2020 15:13:56 -0000	1.1.2.1
+++ openacs-4/packages/acs-content-repository/tcl/test/content-extlink-procs.tcl	1 Sep 2020 17:11:42 -0000	1.1.2.2
@@ -55,13 +55,13 @@
             aa_true "New link is actually there" [content::extlink::is_extlink -item_id $link_id]
 
             aa_true "New link was saved with supplied info" [db_string check_info {
-                select exists (select 1 from cr_extlinks e, cr_items i
-                               where extlink_id = :link_id
-                               and i.item_id = e.extlink_id
-                               and i.name = :name
-                               and url = :url
-                               and label = :label
-                               and description = :description)
+                select case when exists (select 1 from cr_extlinks e, cr_items i
+                                         where extlink_id = :link_id
+                                         and i.item_id = e.extlink_id
+                                         and i.name = :name
+                                         and url = :url
+                                         and label = :label
+                                         and description = :description) then 1 else 0
                 from dual
             }]
 
@@ -75,10 +75,10 @@
                 -description $description
 
             aa_true "Link was edited with supplied info" [db_string check_info {
-                select exists (select 1 from cr_extlinks where extlink_id = :link_id
-                               and url = :url
-                               and label = :label
-                               and description = :description)
+                select case when exists (select 1 from cr_extlinks where extlink_id = :link_id
+                                         and url = :url
+                                         and label = :label
+                                         and description = :description) then 1 else 0
                 from dual
             }]
 
Index: openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl,v
diff -u -N -r1.64.2.1 -r1.64.2.2
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	4 Apr 2019 08:26:32 -0000	1.64.2.1
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	1 Sep 2020 17:12:59 -0000	1.64.2.2
@@ -74,9 +74,9 @@
         check if a user is a dotLRN user
     } {
         return [db_string select_exists {
-            select exists (select 1
-                           from dotlrn_users
-                           where user_id = :user_id)
+            select case when exists (select 1
+                                     from dotlrn_users
+                                     where user_id = :user_id) then 1 else 0
             from dual
         }]
     }
Index: openacs-4/packages/dotlrn/www/communities-chunk.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/communities-chunk.tcl,v
diff -u -N -r1.17 -r1.17.2.1
--- openacs-4/packages/dotlrn/www/communities-chunk.tcl	29 Jun 2018 17:27:19 -0000	1.17
+++ openacs-4/packages/dotlrn/www/communities-chunk.tcl	1 Sep 2020 17:18:14 -0000	1.17.2.1
@@ -34,10 +34,10 @@
 set user_id [ad_conn user_id]
 
 set communities_p [db_string communities_p {
-    select exists (
-                   select 1 from dotlrn_communities_not_closed
-                   where (:community_type is null or community_type = :community_type)
-                   ) from dual
+    select case when exists (
+     select 1 from dotlrn_communities_not_closed
+     where (:community_type is null or community_type = :community_type)
+    ) then 1 else 0 end from dual
 }]
 
 set filter_bar [ad_dimensional [list [list filter "[_ dotlrn.Memberships_1]" select_all_memberships \
Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -N -r1.284.2.113 -r1.284.2.114
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	26 Aug 2020 18:34:59 -0000	1.284.2.113
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	1 Sep 2020 17:20:33 -0000	1.284.2.114
@@ -1670,7 +1670,9 @@
   } {
 
     set content_type_registered [::xo::dc get_value check_content_type {
-      select exists(select 1 from cr_mime_types where mime_type = :content_type)
+      select case when exists
+      (select 1 from cr_mime_types where mime_type = :content_type) then 1 else 0 end
+      from dual
     }]
     #
     # If the provided mime type is not registered, or unknown, try