Index: openacs-4/packages/acs-admin/www/cluster.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/Attic/cluster.tcl,v
diff -u -r1.1.2.3 -r1.1.2.4
--- openacs-4/packages/acs-admin/www/cluster.tcl	5 Dec 2023 17:14:58 -0000	1.1.2.3
+++ openacs-4/packages/acs-admin/www/cluster.tcl	17 Dec 2023 19:28:31 -0000	1.1.2.4
@@ -3,7 +3,7 @@
 
     @creation-date Feb 8, 2023
 } {
-    {drop_node:nohtml,notnull ""}
+    {disconnect_node:nohtml,notnull ""}
     {flush_node:nohtml,notnull ""}
 }
 
@@ -13,11 +13,11 @@
 set server_cluster_enabled_p [server_cluster_enabled_p]
 set dynamic_cluster_nodes [::acs::cluster dynamic_cluster_nodes]
 
-if {$drop_node ne ""} {
+if {$disconnect_node ne ""} {
     #
-    # Drop the provided node from DynamicClusterPeers
+    # Disconnect the provided node from DynamicClusterPeers
     #
-    acs::cluster drop_dynamic_node $drop_node
+    acs::cluster dynamic_cluster_reconfigure disconnect $disconnect_node
     set done 1
 } elseif {$flush_node ne ""} {
     #
@@ -100,7 +100,7 @@
                 <a href="./cluster?flush_node=@cluster_nodes.node_name@"><adp:icon name="bandaid" title="Flush Cache"></a>&nbsp;
                 <if @cluster_nodes.current_p@ true><adp:icon name="trash" invisible="true"></if>
                 <else><if @cluster_nodes.canonical_p@ true><adp:icon name="trash" invisible="true"></if>
-                <else><a href="./cluster?drop_node=@cluster_nodes.node_name@"><adp:icon name="trash"
+                <else><a href="./cluster?disconnect_node=@cluster_nodes.node_name@"><adp:icon name="trash"
                       title="Disconnect Peer; trigger rejoin and flush in a few seconds when server is alive"></a></else>
                 </else>
             }