Index: openacs-4/packages/notifications/tcl/delivery-method-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/delivery-method-procs.tcl,v
diff -u -N -r1.12 -r1.12.10.1
--- openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	27 Jun 2007 18:54:48 -0000	1.12
+++ openacs-4/packages/notifications/tcl/delivery-method-procs.tcl	26 Aug 2013 07:57:13 -0000	1.12.10.1
@@ -53,7 +53,7 @@
     set args [list $from_user_id $to_user_id $reply_object_id $notification_type_id $subject $content_text $content_html $file_ids]
 
     # Make the generic call
-    return [acs_sc_call NotificationDeliveryMethod Send $args $impl_key]
+    return [acs_sc::invoke -contract NotificationDeliveryMethod -operation Send -call_args $args -impl $impl_key]
 }
 
 ad_proc -public notification::delivery::scan_replies {
@@ -74,7 +74,7 @@
     # ns_log Notice "NOTIF-DELIV-METHOD: about to call acs_sc on $impl_key"
 
     # Make the generic call
-    return [acs_sc_call NotificationDeliveryMethod ScanReplies $args $impl_key]
+    return [acs_sc::invoke -contract NotificationDeliveryMethod -operation ScanReplies -call_args $args -impl $impl_key]
 }
 
 ad_proc -public notification::delivery::new {