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.25.2.2 -r1.25.2.3
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	27 Aug 2013 11:20:39 -0000	1.25.2.2
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	29 Sep 2013 11:50:55 -0000	1.25.2.3
@@ -153,7 +153,7 @@
     acs_sc_log SCDebug "ACS_SC_PROC: proc_name = $proc_name"
     
     if { $impl_alias eq "" } {
-        foreach {impl_alias impl_pl} [acs_sc_get_alias $contract $operation $impl] break 
+        lassign [acs_sc_get_alias $contract $operation $impl] impl_alias impl_pl 
     }
 
     if { $impl_alias eq "" } {