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.1 -r1.2
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	1 Sep 2001 20:22:57 -0000	1.1
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	13 Sep 2001 04:59:26 -0000	1.2
@@ -68,6 +68,7 @@
 
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
+    ns_log Notice "ACS_SC_PROC: proc_name = $proc_name"
     foreach {impl_alias impl_pl} [acs_sc_get_alias $contract $operation $impl] break 
 
     if ![info exists impl_alias] {