Index: openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	1 Jul 2004 11:00:33 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	1 Mar 2005 09:17:41 -0000	1.10
@@ -10,17 +10,6 @@
 # These procedures are dynamically defined at startup to alleviate
 # lock contention. Thanks to davis@xarg.net.
 
-proc ad_acs_admin_id_mem {} {
-    return [db_string acs_kernel_id_get {
-	select package_id from apm_packages
-	where package_key = 'acs-admin'
-    } -default 0]
-}
-
-proc ad_acs_admin_id {} "
-    return [ad_acs_admin_id_mem]
-"
-
 if { [ad_parameter -package_id [ad_acs_kernel_id] PerformanceModeP request-processor 0] } {
   ad_proc -private rp_performance_mode {} {
     Returns 1 if the request processor is in performance mode, 0 otherwise.
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl,v
diff -u -r1.74 -r1.75
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Feb 2005 01:29:43 -0000	1.74
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	1 Mar 2005 09:17:41 -0000	1.75
@@ -1110,20 +1110,6 @@
     return $acs_kernel_id
 }
 
-ad_proc -public -deprecated ad_acs_admin_id {} {
-
-    Returns the package_id of the acs-admin package.
-    You probably want ad_acs_kernel_id, that is what has all the
-    useful parameters.
-
-    @see ad_acs_kernel_id
-} {
-    return [db_string acs_admin_id_get {
-        select package_id from apm_packages
-        where package_key = 'acs-admin'
-    } -default 0]
-}
-
 ad_proc -public ad_conn {args} {
 
   Returns a property about the connection. See the <a