Index: openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl,v
diff -u -r1.12.2.16 -r1.12.2.17
--- openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	28 Aug 2020 16:42:29 -0000	1.12.2.16
+++ openacs-4/packages/acs-subsite/tcl/test/acs-subsite-procs.tcl	1 Sep 2020 17:40:42 -0000	1.12.2.17
@@ -12,11 +12,12 @@
         found belonging to groups that do not exist anymore.
     } {
         aa_false "Leftover group localization message keys do not exist in the database" [db_string leftovers_exist {
-            select exists (select 1 from lang_message_keys k
-                           where package_key = 'acs-translations'
-                           and message_key like 'group_title_%'
-                           and not exists (select 1 from groups
-                                           where group_id = cast(split_part(k.message_key, '_', 3) as integer)))
+            select case when exists (select 1 from lang_message_keys k
+                                     where package_key = 'acs-translations'
+                                     and message_key like 'group_title_%'
+                                     and not exists (select 1 from groups
+                                                     where group_id = cast(split_part(k.message_key, '_', 3) as integer)))
+            then 1 else 0 end
             from dual
         }]
     }
@@ -40,9 +41,10 @@
         set message_key "group_title_${group_id}"
 
         aa_true "Message key was registered correctly" [db_string get_key {
-            select exists (select 1 from lang_message_keys
-                           where package_key = :package_key
-                           and message_key = :message_key)
+            select case when exists (select 1 from lang_message_keys
+                                     where package_key = :package_key
+                                     and message_key = :message_key)
+            then 1 else 0 end
             from dual
         }]
 
@@ -52,9 +54,10 @@
         group::delete $group_id
 
         aa_false "Message key was deleted correctly" [db_string get_key {
-            select exists (select 1 from lang_message_keys
-                           where package_key = :package_key
-                           and message_key = :message_key)
+            select case when exists (select 1 from lang_message_keys
+                                     where package_key = :package_key
+                                     and message_key = :message_key)
+            then 1 else 0 end
             from dual
         }]