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.42 -r1.43
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	28 Aug 2003 09:41:43 -0000	1.42
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	15 Sep 2003 16:06:15 -0000	1.43
@@ -1056,7 +1056,7 @@
 }
 
 
-ad_proc -public ad_acs_kernel_id_mem {} {
+ad_proc -private ad_acs_kernel_id_mem {} {
 
     Returns the package_id of the kernel. (not cached)
 
@@ -1070,7 +1070,7 @@
 
 } {
     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"
+    ad_proc -public ad_acs_kernel_id {} {Returns the package_id of the kernel.} "return $acs_kernel_id"
     return $acs_kernel_id
 }