fix transient PC41

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 5407bb1bd24f96d60affc55ff8975a8b39753cdc..01adbc7d5174850c7120eca7a45888e147a4a47f 100644 (file)
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -912,7 +912,7 @@ sub normal
                        $user->lastoper($main::systime);   # to cut down on excessive for/opers being generated
                        $user->put;
                        my $ref = Route::get($call);
-                       $self->route_pc41($ref, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
+                       $self->route_pc41($ref, $call, $field[2], $field[3], $field[4]) if $ref && !eph_dup($line);
                }
                if ($pcno == 43) {
                        last SWITCH;