diff --git a/perl/DXChannel.pm b/perl/DXChannel.pm
index 01d2135e..463d43a2 100644
--- a/perl/DXChannel.pm
+++ b/perl/DXChannel.pm
@@ -544,7 +544,7 @@ sub broadcast_nodes
 
 # broadcast a message to all clusters ignoring isolation
 # [except those mentioned after buffer]
-sub broadcast_all_ak1a
+sub broadcast_all_nodes
 {
 	my $s = shift;				# the line to be rebroadcast
 	my @except = @_;			# to all channels EXCEPT these (dxchannel refs)