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.23 -r1.24
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	10 Jan 2007 21:22:05 -0000	1.23
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	30 Oct 2010 21:43:01 -0000	1.24
@@ -255,7 +255,7 @@
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
     if { [llength [info procs $proc_name]] == 1 } {
-	return [apply $proc_name $arguments]
+	return [ad_apply $proc_name $arguments]
     } else {
         if { $error_p } {
             error "Operation $operation is not implemented in '$impl' implementation of contract '$contract'"