Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl,v
diff -u -N -r1.4 -r1.4.4.1
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	16 Oct 2002 15:10:04 -0000	1.4
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	3 Dec 2003 22:19:05 -0000	1.4.4.1
@@ -9,7 +9,7 @@
 
     acs_sc_log SCDebug "ACS_SC_PROC: checking binding exists for contract $impl_contract_name impl $impl_name"
 
-    set binding_exists_p [db_string binding_exists_p {select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)}]
+    set binding_exists_p [db_string binding_exists_p {*SQL*}]
 
     if $binding_exists_p {
 	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name