Index: openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl,v
diff -u -N -r1.5 -r1.5.10.1
--- openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	10 Jan 2007 21:22:12 -0000	1.5
+++ openacs-4/packages/acs-tcl/tcl/user-extensions-procs.tcl	26 Aug 2013 07:57:13 -0000	1.5.10.1
@@ -32,7 +32,7 @@
 
         # Loop through the extensions
         foreach extension $extensions {
-            acs_sc_call UserData $op $list_of_args $extension
+            set r [acs_sc::invoke -contract UserData -operation $op -call_args $list_of_args -impl $extension]
         }
     }