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/content-extlink-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/acs-content-repository/tcl/test/content-extlink-procs.tcl	1 Sep 2020 17:11:42 -0000	1.1.2.2
+++ openacs-4/packages/acs-content-repository/tcl/test/content-extlink-procs.tcl	1 Sep 2020 17:17:14 -0000	1.1.2.3
@@ -61,7 +61,7 @@
                                          and i.name = :name
                                          and url = :url
                                          and label = :label
-                                         and description = :description) then 1 else 0
+                                         and description = :description) then 1 else 0 end
                 from dual
             }]
 
@@ -78,7 +78,7 @@
                 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
+                                         and description = :description) then 1 else 0 end
                 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 -r1.64.2.2 -r1.64.2.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	1 Sep 2020 17:12:59 -0000	1.64.2.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-security-procs.tcl	1 Sep 2020 17:16:11 -0000	1.64.2.3
@@ -76,7 +76,7 @@
         return [db_string select_exists {
             select case when exists (select 1
                                      from dotlrn_users
-                                     where user_id = :user_id) then 1 else 0
+                                     where user_id = :user_id) then 1 else 0 end
             from dual
         }]
     }
Index: openacs-4/packages/dotlrn/tcl/test/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/test/community-procs.tcl,v
diff -u -r1.5.2.4 -r1.5.2.5
--- openacs-4/packages/dotlrn/tcl/test/community-procs.tcl	1 Sep 2020 17:14:07 -0000	1.5.2.4
+++ openacs-4/packages/dotlrn/tcl/test/community-procs.tcl	1 Sep 2020 17:16:11 -0000	1.5.2.5
@@ -39,7 +39,7 @@
             select case when exists (select 1
                                      from dotlrn_communities_all c, acs_objects o
                                      where c.community_id = o.object_id
-                                     and o.security_inherit_p = 't') then 1 else 0
+                                     and o.security_inherit_p = 't') then 1 else 0 end
             from dual
         }]
     }