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.16 -r1.17
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	4 Sep 2003 13:06:39 -0000	1.16
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	4 Sep 2003 15:16:38 -0000	1.17
@@ -44,7 +44,7 @@
         }
         acs_sc::impl::get -impl_id $impl_id -array impl_info
         set impl $impl_info(impl_name)
-        if { ![string equal $contract $impl_info(impl_contract_name)] } {
+        if { ![empty_string_p $contract] && ![string equal $contract $impl_info(impl_contract_name)] } {
             error "The cotnract of implementation with id $impl_id does not match contract passed in. Expected contract to be '$contract', but contract of impl_id was '$impl_info(impl_contract_name)'"
         }
         set contract $impl_info(impl_contract_name)