Index: openacs-4/packages/acs-admin/www/cluster.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/cluster.tcl,v
diff -u -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/acs-admin/www/cluster.tcl	15 Jul 2024 11:44:11 -0000	1.1.2.5
+++ openacs-4/packages/acs-admin/www/cluster.tcl	10 Aug 2024 14:59:33 -0000	1.1.2.6
@@ -11,6 +11,17 @@
 set context [list $page_title]
 
 set server_cluster_enabled_p [server_cluster_enabled_p]
+
+if {$server_cluster_enabled_p && [info commands acs::container] eq ""} {
+    #
+    # Probably, someone has just activated cluster mode without a
+    # restart. We can still give a reasonable output by doing an
+    # ad-hoch initialization.
+    #
+    nsv_set cluster cluster_peer_nodes ""
+    ::acs::cluster setup
+}
+
 set dynamic_cluster_nodes [::acs::cluster dynamic_cluster_nodes]
 
 if {$disconnect_node ne ""} {