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.118.2.30 -r1.118.2.31
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	5 Sep 2016 08:53:23 -0000	1.118.2.30
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	12 Sep 2016 08:31:57 -0000	1.118.2.31
@@ -1266,13 +1266,15 @@
     return [db_string acs_kernel_id_get {} -default 0]
 }
 
-# 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]
+    #
+    # use proc rather than ad_proc on redefine since we don't want to see a 
+    # multiple define proc warning...
     proc ad_acs_kernel_id {} "return $acs_kernel_id"
+    
     return $acs_kernel_id
 }