X-Git-Url: http://www.dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;h=ee9c92f103410f54bfc3c78d20c764fc8085b71d;hb=ba0bc47c95759a369af81fb19556c48261530a79;hp=411b33b456bf1986abf705386f68d1415cf57f75;hpb=f0b59af5985f155c108932be14840726be7cd1f5;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 411b33b4..ee9c92f1 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1774,7 +1774,7 @@ sub talk
 	
 	$line =~ s/\^/\\5E/g;			# remove any ^ characters
 	$self->send(DXProt::pc10($from, $to, $via, $line, $origin));
-	Log('talk', $self->call, $from, $via?$via:$main::mycall, $line) unless $origin && $origin ne $main::mycall;
+	Log('talk', $to, $from, $via?$via:$self->call, $line) unless $origin && $origin ne $main::mycall;
 }
 
 # send it if it isn't the except list and isn't isolated and still has a hop count