From b44d7b472d9cc79fe193aba8c7b2e78e2b6de002 Mon Sep 17 00:00:00 2001
From: Steve Franke <s.j.franke@icloud.com>
Date: Mon, 24 Dec 2018 10:49:40 -0600
Subject: [PATCH] Fix a typo.

---
 lib/ft8/ft8apset.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/ft8/ft8apset.f90 b/lib/ft8/ft8apset.f90
index 5fc31d2ce..2e85029e0 100644
--- a/lib/ft8/ft8apset.f90
+++ b/lib/ft8/ft8apset.f90
@@ -15,7 +15,7 @@ subroutine ft8apset(mycall12,hiscall12,apsym)
   nohiscall=.false. 
   hiscall=hiscall12 
   if(len(trim(hiscall)).eq.0) then
-     hiscall=mycall  ! use mycall for dummy hiscall - mycall won't be hashed.
+     hiscall=mycall12  ! use mycall for dummy hiscall - mycall won't be hashed.
      nohiscall=.true.
   endif