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.33.2.4 -r1.33.2.5
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	28 Oct 2020 15:39:19 -0000	1.33.2.4
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	12 Jul 2022 15:15:02 -0000	1.33.2.5
@@ -58,7 +58,7 @@
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
     if { [namespace which $proc_name] ne "" } {
-        return [ad_apply $proc_name $call_args]
+        return [$proc_name {*}$call_args]
     }
 
     if { $error_p } {