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.6 -r1.6.16.1
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	20 Apr 2004 21:12:55 -0000	1.6
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	29 Sep 2013 11:13:09 -0000	1.6.16.1
@@ -10,5 +10,10 @@
     where  ia.impl_id = b.impl_id
 } {
     # This creates the AcsSc.Contract.Operation.Impl wrapper proc for this implementation
-    acs_sc_proc $impl_contract_name $impl_operation_name $impl_name $impl_alias $impl_pl
+    if {[catch {
+	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name $impl_alias $impl_pl
+    } errorMsg]} {
+	ns_log error "Service contract initialization failed, call was:\n\
+	acs_sc_proc $impl_contract_name $impl_operation_name $impl_name $impl_alias $impl_pl" 
+    }
 }