Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -N -r1.33.2.2 -r1.33.2.3
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	2 Jan 2020 18:55:57 -0000	1.33.2.2
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	1 Sep 2020 17:37:10 -0000	1.33.2.3
@@ -91,14 +91,16 @@
     @author Neophytos Demetriou
 } {
     return [db_string binding_exists_p {
-        select exists (select 1 from acs_sc_bindings
-                       where contract_id = (select contract_id
-                                            from acs_sc_contracts
-                                            where contract_name = :contract)
-                         and impl_id = (select impl_id
-                                        from acs_sc_impls
-                                        where impl_name = :impl
-                                        and impl_contract_name = :contract))
+        select case when exists
+        (select 1 from acs_sc_bindings
+         where contract_id = (select contract_id
+                              from acs_sc_contracts
+                              where contract_name = :contract)
+           and impl_id = (select impl_id
+                          from acs_sc_impls
+                          where impl_name = :impl
+                          and impl_contract_name = :contract))
+        then 1 else 0 end
         from dual
     }]
 }