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.5 -r1.6
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	6 Oct 2001 16:30:30 -0000	1.5
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	9 Oct 2001 04:57:37 -0000	1.6
@@ -11,7 +11,7 @@
     @author Neophytos Demetriou
 } {
 
-    return [db_exec_plsql binding_exists_p {select acs_sc_binding__exists_p(:contract,:impl)}]
+    return [db_string binding_exists_p {select acs_sc_binding__exists_p(:contract,:impl)}]
 
 }