From 5ace616f093a2e34141d14cbb310d1b048034c0e Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Sat, 9 Jun 2001 15:13:23 +0000
Subject: [PATCH] fix here default

---
 perl/DXCommandmode.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index 9c6b73af..9dc967b6 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -52,7 +52,7 @@ sub new
 	# routing, this must go out here to prevent race condx
 	my $pkg = shift;
 	my $call = shift;
-	my @rout = $main::routeroot->add_user($call, Route::here($self->{here}));
+	my @rout = $main::routeroot->add_user($call, Route::here(1));
 	DXProt::route_pc16($DXProt::me, $main::routeroot, @rout) if @rout;
 
 	return $self;
-- 
2.43.0