Index: openacs-4/packages/acs-admin/www/server-restart.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/server-restart.tcl,v
diff -u -r1.4.24.2 -r1.4.24.3
--- openacs-4/packages/acs-admin/www/server-restart.tcl	21 May 2017 09:52:26 -0000	1.4.24.2
+++ openacs-4/packages/acs-admin/www/server-restart.tcl	25 Jul 2017 09:49:58 -0000	1.4.24.3
@@ -16,7 +16,7 @@
 # option will be used.
 #
 if {[ns_info name] eq "NaviServer" &&
-    [parameter::get -parameter NsShutdownWithNonZeroExitCode -package_id $::acs::kernel_id -default 0]
+    [parameter::get -parameter NsShutdownWithNonZeroExitCode -package_id [ad_acs_kernel_id] -default 0]
 } {
     set cmd {ns_shutdown -restart}
 } else {
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.17.2.4 -r1.17.2.5
--- openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	25 Jul 2017 09:29:45 -0000	1.17.2.4
+++ openacs-4/packages/acs-tcl/tcl/request-processor-init.tcl	25 Jul 2017 09:49:58 -0000	1.17.2.5
@@ -180,11 +180,6 @@
     }
 }
 
-if {![info exists ::acs::kernel_id]} {
-    set ::acs::kernel_id [ad_acs_kernel_id_mem]
-    ns_log notice "reuqest-processor-init: setting ::acs::kernel_id to $acs::kernel_id"
-}
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4
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.52 -r1.118.2.53
--- openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	25 Jul 2017 09:38:24 -0000	1.118.2.52
+++ openacs-4/packages/acs-tcl/tcl/request-processor-procs.tcl	25 Jul 2017 09:49:58 -0000	1.118.2.53
@@ -1912,11 +1912,6 @@
     proc   rp_invoke_proc   { argv } "$cmd _ \$argv"
 }
 
-if {![info exists ::acs::kernel_id]} {
-    set ::acs::kernel_id [ad_acs_kernel_id_mem]
-    ns_log notice "reuqest-processor-procs: setting ::acs::kernel_id to $acs::kernel_id"
-}
-
 #
 # Local variables:
 #    mode: tcl