diff --git a/CMakeLists.txt b/CMakeLists.txt
index 4a1dd6a63..142907765 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -303,7 +303,6 @@ set (wsjt_FSRCS
   lib/encode4.f90
   lib/entail.f90
   lib/ephem.f90
-  lib/exp_decode65.f90
   lib/extract.f90
   lib/extract4.f90
   lib/fano232.f90
@@ -341,6 +340,7 @@ set (wsjt_FSRCS
   lib/grid2deg.f90
   lib/hash.f90
   lib/hashing.f90
+  lib/hint65.f90
   lib/hspec.f90
   lib/image.f90
   lib/indexx.f90
diff --git a/lib/extract.f90 b/lib/extract.f90
index 7dd64c212..4bf071434 100644
--- a/lib/extract.f90
+++ b/lib/extract.f90
@@ -99,8 +99,8 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12,    &
      mode65=1
      flip=1.0
      qmin=1.0
-          call timer('exp_deco',0)
-     call exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
+          call timer('hint65  ',0)
+     call hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
           mycall,hiscall,hisgrid,nexp_decode,qual,decoded)
      if(qual.ge.qmin) then
         nft=2
@@ -108,7 +108,7 @@ subroutine extract(s3,nadd,ntrials,naggressive,ndepth,mycall_12,    &
         decoded='                      '
         ntry=0
      endif
-     call timer('exp_deco',1)
+     call timer('hint65  ',1)
      go to 900
   endif
 
diff --git a/lib/exp_decode65.f90 b/lib/hint65.f90
similarity index 97%
rename from lib/exp_decode65.f90
rename to lib/hint65.f90
index 123109de5..0a1a47fd4 100644
--- a/lib/exp_decode65.f90
+++ b/lib/hint65.f90
@@ -1,4 +1,4 @@
-subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
+subroutine hint65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
      mycall,hiscall0,hisgrid0,nexp_decode,qual,decoded)
 
   use packjt
@@ -132,4 +132,4 @@ subroutine exp_decode65(s3,mrs,mrs2,mrsym,mr2sym,mrprob,mode65,flip,   &
   if(qual.ge.qmin) decoded=msg0(ipk)
 
   return
-end subroutine exp_decode65
+end subroutine hint65