Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	20 Jul 2018 13:38:41 -0000	1.52
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	2 Aug 2018 09:29:08 -0000	1.53
@@ -17,7 +17,7 @@
 ad_proc -private auth::test::get_admin_user_id {} {
     Return the user id of a site-wide-admin on the system
 } {
-    set context_root_id [acs_lookup_magic_object security_context_root]
+    set context_root_id [acs_magic_object security_context_root]
 
     return [db_string select_user_id {}]
 }