From bf1d1dace62414eb90394cf1a3cd1b314de74acb Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Tue, 18 May 2021 16:33:11 -0400
Subject: [PATCH] Don't inadvertently erase hiscall and hisgrid in a call to
 q65_hist().

---
 lib/qra/q65/q65.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/qra/q65/q65.f90 b/lib/qra/q65/q65.f90
index 91c07510a..5ab931896 100644
--- a/lib/qra/q65/q65.f90
+++ b/lib/qra/q65/q65.f90
@@ -731,7 +731,8 @@ subroutine q65_hist(if0,msg0,dxcall,dxgrid)
   msg(nhist)=msg0
   go to 900
 
-100 dxcall='            '                        !This is a lookup request
+100 if(dxcall(1:3).ne.'   ') go to 900
+  dxcall='            '                        !This is a lookup request
   dxgrid='      '
 ! Look for a decode close to if0, starting with most recent ones
   do i=nhist,1,-1