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.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	20 Sep 2002 21:46:34 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	24 Jan 2003 16:02:17 -0000	1.4
@@ -17,17 +17,6 @@
     } -default 0]
 }
 
-proc ad_acs_kernel_id_mem {} {
-    return [db_string acs_kernel_id_get {
-        select package_id from apm_packages
-        where package_key = 'acs-kernel'
-    } -default 0]
-}
-
-proc ad_acs_kernel_id {} "
-    return [ad_acs_kernel_id_mem]
-"
-
 proc ad_acs_admin_id {} "
     return [ad_acs_admin_id_mem]
 "
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.30 -r1.31
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	16 Jan 2003 13:41:57 -0000	1.30
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	24 Jan 2003 16:02:17 -0000	1.31
@@ -1021,15 +1021,23 @@
   ad_raise ad_script_abort
 }
 
+
+ad_proc -public ad_acs_kernel_id_mem {} {
+
+    Returns the package_id of the kernel. (not cached)
+
+} {
+    return [db_string acs_kernel_id_get {} -default 0]
+}
+
 ad_proc -public ad_acs_kernel_id {} {
 
     Returns the package_id of the kernel.
 
 } {
-    return [db_string acs_kernel_id_get {
-	select package_id from apm_packages
-	where package_key = 'acs-kernel'
-    } -default 0]
+    set acs_kernel_id [ad_acs_kernel_id_mem]
+    ad_proc ad_acs_kernel_id {} {Returns the package_id of the kernel.} "return $acs_kernel_id"
+    return $acs_kernel_id
 }
 
 ad_proc -public -deprecated ad_acs_admin_id {} {
Index: openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/request-processor-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql	10 Oct 2001 18:28:49 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.xql	24 Jan 2003 16:02:18 -0000	1.3
@@ -1,7 +1,7 @@
 <?xml version="1.0"?>
 <queryset>
 
-<fullquery name="ad_acs_kernel_id.acs_kernel_id_get">      
+<fullquery name="ad_acs_kernel_id_mem.acs_kernel_id_get">      
       <querytext>
       
 	select package_id from apm_packages
@@ -11,7 +11,7 @@
 </fullquery>
 
  
-<fullquery name="ad_acs_kernel_id.acs_admin_id_get">      
+<fullquery name="ad_acs_admin_id.acs_admin_id_get">      
       <querytext>
       
         select package_id from apm_packages