diff --git a/lib/fix_contest_msg.f90 b/lib/fix_contest_msg.f90
index d0ad519fb..730e105e0 100644
--- a/lib/fix_contest_msg.f90
+++ b/lib/fix_contest_msg.f90
@@ -1,16 +1,16 @@
-subroutine fix_contest_msg(mycall,mygrid,hiscall,msg)
+subroutine fix_contest_msg(mygrid,msg)
 
-! If msg is "mycall hiscall grid1" and distance from mygrid to grid1 is more
-! thsn 10000 km, change "grid1" to "R grid2" where grid2 is the antipodes
-! of grid1.
+! If distance from mygrid to grid1 is more thsn 10000 km, change "grid1"
+! to "R grid2" where grid2 is the antipodes of grid1.
 
-  character*6 mycall,mygrid,hiscall
+  character*6 mygrid
   character*22 msg
   character*6 g1,g2
   logical isgrid
 
   n=len(trim(msg))
   if(n.lt.4) return
+
   g1=msg(n-3:n)//'  '
   if(isgrid(g1)) then
      call azdist(mygrid,g1,0.d0,nAz,nEl,nDmiles,nDkm,nHotAz,nHotABetter)
diff --git a/lib/mskrtd.f90 b/lib/mskrtd.f90
index 26517bec4..71a1f0396 100644
--- a/lib/mskrtd.f90
+++ b/lib/mskrtd.f90
@@ -209,7 +209,7 @@ subroutine mskrtd(id2,nutc0,tsec,ntol,nrxfreq,ndepth,mycall,mygrid,hiscall,   &
      if(.not. bshdecode) then
         call update_hasharray(recent_calls,nrecent,nhasharray)
 ! Should we call fix_contest_msg() only if bcontest is true?
-        call fix_contest_msg(mycall(1:6),mygrid,hiscall(1:6),msgreceived)
+        call fix_contest_msg(mygrid,msgreceived)
      endif
      write(line,1020) nutc0,nsnr,tdec,nint(fest),decsym,msgreceived,           &
           navg,ncorrected,eyeopening,char(0)