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 -N -r1.9 -r1.10
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	30 Nov 2002 17:21:44 -0000	1.9
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	3 Feb 2003 12:17:36 -0000	1.10
@@ -6,6 +6,41 @@
     @cvs-id $Id$
 }
 
+namespace eval acs_sc {}
+
+#####
+#
+# Invoke
+#
+#####
+
+ad_proc -public acs_sc::invoke {
+    {-contract:required}
+    {-operation:required}
+    {-impl:required}
+    {-call_args {}}
+} {
+    A wrapper for the acs_sc_call procedure, with explicitly named
+    parameters so it's easier to figure out how to use it.
+    
+    @param contract_name The name of the contract you wish to use.
+    @param operation_name The name of the operation in the contract you wish to call.
+    @param impl_name The name of the implementation you wish to use.
+    @param args The arguments you want to pass to the proc.
+    
+    @author Lars Pind (lars@collaboraid.biz)
+    @see acs_sc_call
+} {
+    return [acs_sc_call $contract $operation $call_args $impl]
+}
+
+
+#####
+#
+# All the rest that used to be there
+#
+#####
+
 ad_proc -public acs_sc_binding_exists_p {
     contract
     impl
@@ -29,7 +64,6 @@
     contract
     impl
     operation
-
 } {
     generate the internal proc name.
 
@@ -219,7 +253,6 @@
 
     @author Neophytos Demetriou
 } {
-
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
     if { [llength [info procs $proc_name]] == 1 } {
@@ -239,24 +272,12 @@
 ## Logging
 ##
 
+# Private logging proc
 proc acs_sc_log {level msg} {
     # If you want to debug the SC, uncomment the Debug log below
     if {![string equal "SCDebug" $level]} {
         ns_log $level "$msg"
     } else { 
         # ns_log Debug "$msg"
     }
-}
-
-
-
-
-
-
-
-
-
-
-
-
-
+}
\ No newline at end of file