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 -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	6 Oct 2001 16:30:30 -0000	1.2
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	9 Oct 2001 04:57:37 -0000	1.3
@@ -7,9 +7,9 @@
     from acs_sc_impl_aliases
 } {
 
-    set binding_exists_p [db_exec_plsql binding_exists_p {select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)}]
+    set binding_exists_p [db_string binding_exists_p {select acs_sc_binding__exists_p(:impl_contract_name,:impl_name)}]
 
     if $binding_exists_p {
 	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name
     }
-}
\ No newline at end of file
+}