#
# PC28 field 11 is the RR required flag
# PC28 field 12 is a VIA routing (ie it is a node call)
+#
package DXMsg;
$self->{msgno} = shift;
my $to = shift;
# $to =~ s/-\d+$//o;
- $self->{to} = $to;
+ $self->{to} = ($to eq $main::mycall) ? $main::myalias : $to;
my $from = shift;
$from =~ s/-\d+$//o;
$self->{from} = uc $from;