=== yfksubs.pl
==================================================================
--- yfksubs.pl	(revision 10079)
+++ yfksubs.pl	(revision 10080)
@@ -1105,6 +1105,7 @@
 	my $PI=3.14159265;			# PI for the distance and bearing
 	my $RE=6371;				# Earth radius
 	my $z =180/$PI;				# Just to reduce typing in formular dist/dir
+	my $foundlog = 0;
 
 	if  (defined $prefix) {	# &wpx returns undef when callsign is invalid
 		# Now we print all the fields to their appropriate locations, with
@@ -1176,6 +1177,7 @@
 			}
 			refresh($wi[6]);							# refresh windows
 			refresh($wi[7]);
+			$foundlog = 1;
 		}
 		
 		
@@ -1378,16 +1380,21 @@
 		if ($results && $#$results > -1) {
 			my $result = $results->[0];	# just get the first
 
+			# assume that if we previously logged them the previous logged name
+			# is right.
+			if (!$foundlog) {
+				my $nm = $result->{'first_name'} . " " . $result->{'last_name'};
+				${$_[0]}[7] = $nm;
+				addstr($wi[7],0,0,$nm);
+				refresh($wi[7]);
+			}
+
+			# assume the QTH may have moved though, so use the new one
 			my $qth = $result->{'qth'};
 			${$_[0]}[6] = $qth;
 			addstr($wi[6],0,0,$qth);
 			refresh($wi[6]);
 
-			my $nm = $result->{'first_name'} . " " . $result->{'last_name'};
-			${$_[0]}[7] = $nm;
-			addstr($wi[7],0,0,$nm);
-			refresh($wi[7]);
-
 			my $remarks = "";
 
 			# remarks