Index: openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl	7 Aug 2017 23:47:57 -0000	1.2
+++ openacs-4/packages/acs-service-contract/tcl/test/acs-service-contract-procs.tcl	22 Jul 2018 11:04:43 -0000	1.3
@@ -7,7 +7,15 @@
   @cvs-id $Id$
 }
 
-aa_register_case acs_sc_impl_new_from_spec {
+aa_register_case \
+    -procs {
+        acs_sc::contract::new_from_spec
+        acs_sc::impl::get
+        acs_sc::impl::new_from_spec
+        auth::local::authentication::Authenticate
+        auth::local::authentication::GetParameters
+    } \
+    acs_sc_impl_new_from_spec {
     Test the acs_sc::impl::new_from_spec proc.
 } {
     aa_run_with_teardown \
@@ -68,7 +76,7 @@
 
             acs_sc::impl::get -impl_id $impl_id -array impl
 
-            aa_equals "pretty_name dit not get inserted correctly" $impl(impl_pretty_name) "Foo Driver"
+            aa_equals "pretty_name did not get inserted correctly" $impl(impl_pretty_name) "Foo Driver"
         }
 }