Index: openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	27 Oct 2024 16:50:22 -0000	1.4
+++ openacs-4/packages/acs-tcl/tcl/cluster-procs.tcl	26 Nov 2024 08:18:55 -0000	1.5
@@ -274,7 +274,7 @@
                                 # in CIDR notation or it contains a
                                 # wild card.
                                 #
-                                if {([string first / $ip] != -1 && [ns_subnetmatch $ip $peer])
+                                if {([string first / $ip] != -1 && [ns_ip match $ip $peer])
                                     || ([string first * $ip] != -1 && [string match $ip $peer])
                                 } {
                                     set ok 1