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