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.69 -r1.70
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	8 Feb 2005 01:22:52 -0000	1.69
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	17 Feb 2005 15:11:39 -0000	1.70
@@ -1090,11 +1090,13 @@
     return [db_string acs_kernel_id_get {} -default 0]
 }
 
-# use proc rather than ad_proc since we redefine this internally
-# and dont want a redefined proc error...
-proc ad_acs_kernel_id {} {
+# use proc rather than ad_proc on redefine since we don't want to see a 
+# multiple define proc warning...
+ad_proc -public ad_acs_kernel_id {} {
+    Returns the package_id of the kernel.
+} {
     set acs_kernel_id [ad_acs_kernel_id_mem]
-    ad_proc -public ad_acs_kernel_id {} {Returns the package_id of the kernel.} "return $acs_kernel_id"
+    proc ad_acs_kernel_id {} "return $acs_kernel_id"
     return $acs_kernel_id
 }