Index: openacs-4/packages/acs-bootstrap-installer/installer.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/installer.tcl,v
diff -u -N -r1.31.2.4 -r1.31.2.5
--- openacs-4/packages/acs-bootstrap-installer/installer.tcl	13 Jul 2020 12:02:33 -0000	1.31.2.4
+++ openacs-4/packages/acs-bootstrap-installer/installer.tcl	27 Oct 2021 16:42:15 -0000	1.31.2.5
@@ -394,6 +394,14 @@
     "
     ns_write "\n<script>window.scrollTo(0,document.body.scrollHeight);</script>\n"
 
+    #
+    # At this time, the basic data model and the proc
+    # "ad_acs_kernel_id" are defined, such we can also define the
+    # global variable for bootstrap, which is already needed for the
+    # out-of-band sourcing of 20-memoize-init.tcl below.
+    #
+    set ::acs::kernel_id [ad_acs_kernel_id]
+    
     # Some APM procedures use util_memoize, so initialize the cache
     # before starting APM install
     array set errors {}
Index: openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl,v
diff -u -N -r1.7.2.3 -r1.7.2.4
--- openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	18 Oct 2021 16:31:20 -0000	1.7.2.3
+++ openacs-4/packages/acs-tcl/tcl/20-memoize-init.tcl	27 Oct 2021 16:42:14 -0000	1.7.2.4
@@ -1,7 +1,11 @@
+#
+# Note: this file is not only called as regular init procs, but as
+# well out-of-band during bootstrapping a new installation.
+#
 # Create the cache used by util_memoize.
-
+#
 ns_cache create util_memoize -size \
-    [parameter::get -package_id [ad_acs_kernel_id] -parameter MaxSize -default 200000]
+    [parameter::get -package_id $::acs::kernel_id -parameter MaxSize -default 200000]
 
 # Local variables:
 #    mode: tcl
Index: openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl,v
diff -u -N -r1.10.2.4 -r1.10.2.5
--- openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	18 Oct 2021 16:31:19 -0000	1.10.2.4
+++ openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl	27 Oct 2021 16:42:15 -0000	1.10.2.5
@@ -8,7 +8,7 @@
 
 ad_proc server_cluster_enabled_p {} { Returns true if clustering is enabled. } {
     return [parameter::get \
-                -package_id [ad_acs_kernel_id] \
+                -package_id $::acs::kernel_id \
                 -parameter ClusterEnabledP \
                 -default 0]
 }
@@ -22,7 +22,7 @@
     if { ![server_cluster_enabled_p] } {
         return {}
     }
-    return [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterPeerIP]
+    return [parameter::get -package_id $::acs::kernel_id -parameter ClusterPeerIP]
 }
 
 ad_proc server_cluster_peer_hosts {} {
@@ -51,7 +51,7 @@
         return 1
     }
 
-    foreach glob [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterAuthorizedIP] {
+    foreach glob [parameter::get -package_id $::acs::kernel_id -parameter ClusterAuthorizedIP] {
         if { [string match $glob $ip] } {
             return 1
         }
@@ -87,7 +87,7 @@
     Since the server can listen to multiple IP addresses and on
     multiple ports, all of these have to be checked.
 } {
-    set canonical_server [parameter::get -package_id [ad_acs_kernel_id] -parameter CanonicalServer]
+    set canonical_server [parameter::get -package_id $::acs::kernel_id -parameter CanonicalServer]
     if { $canonical_server eq "" } {
         ns_log Error "Your configuration is not correct for server clustering." \
             "Please ensure that you have the CanonicalServer parameter set correctly."