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 -r1.33.2.1 -r1.33.2.2
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	14 Feb 2019 10:02:36 -0000	1.33.2.1
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	2 Jan 2020 18:55:57 -0000	1.33.2.2
@@ -86,13 +86,21 @@
     @param contract the contract name
     @param impl the implementation name
 
-    @return 0 or 1
+    @return boolean
 
     @author Neophytos Demetriou
 } {
-
-    return [db_string binding_exists_p {}]
-
+    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))
+        from dual
+    }]
 }
 
 ad_proc -private acs_sc_generate_name {