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 -N -r1.8 -r1.9
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	7 Aug 2017 23:47:57 -0000	1.8
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-init.tcl	4 Oct 2018 09:53:51 -0000	1.9
@@ -1,23 +1,16 @@
-# Loop over actual bindings, finding every impl alias for each contract operation
-db_foreach impl_operation {
-    select ia.impl_contract_name, 
-           ia.impl_operation_name,
-           ia.impl_name,
-           ia.impl_alias,
-           ia.impl_pl
-    from   acs_sc_bindings b,
-           acs_sc_impl_aliases ia
-    where  ia.impl_id = b.impl_id
-} {
-    # This creates the AcsSc.Contract.Operation.Impl wrapper proc for this implementation
-    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" 
-    }
+ad_library {
+    
+    Server startup initialization code for creating service contract
+    alias wrappers.
+
+    @author Gustaf Neumann
+    @creation-date 2018-10-04
 }
 
+ns_log notice "================== acs-service-contract INIT"
+
+acs_sc_update_alias_wrappers
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4