get pc92 transfer call correct (ie don't change it)

diff --git a/perl/DXProtHandle.pm b/perl/DXProtHandle.pm
index d63b6e00926d70e2edf05b9f233e7eb0b268e5f3..d8bb6ac834f00a0a8083cdb60f027b698048cba3 100644 (file)
--- a/perl/DXProtHandle.pm
+++ b/perl/DXProtHandle.pm
@@ -1411,7 +1411,7 @@ sub handle_92
                return;
        }
 
-       $self->broadcast_route_pc9x($origin, undef, $line, 0);
+       $self->broadcast_route_pc9x($pcall, undef, $line, 0);
        foreach my $r (@rdel) {
                next unless $r;