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.20 -r1.21
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	11 Dec 2003 21:39:55 -0000	1.20
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	26 Jan 2004 15:39:46 -0000	1.21
@@ -229,7 +229,7 @@
 
 
 
-ad_proc -deprecated acs_sc_call {
+ad_proc -private -deprecated acs_sc_call {
     {-error:boolean}
     contract
     operation
@@ -245,6 +245,8 @@
     @param error If specified, will throw an error if the operation isn't implemented.
 
     @author Neophytos Demetriou
+
+    @see acs_sc::invoke
 } {
     set proc_name [acs_sc_generate_name $contract $impl $operation]