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.3 -r1.3.4.1
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	9 Oct 2001 04:57:37 -0000	1.3
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	16 Oct 2002 15:01:00 -0000	1.3.4.1
@@ -7,9 +7,13 @@
     from acs_sc_impl_aliases
 } {
 
+    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)}]
 
     if $binding_exists_p {
 	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name
+    } else { 
+        acs_sc_log SCDebug "ACS_SC_PROC: binding not found for contract $impl_contract_name impl $impl_name"
     }
 }