diff --git a/CMakeLists.txt b/CMakeLists.txt
index a31edd41b..cb3cdf8e2 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -304,9 +304,10 @@ set (wsjt_FSRCS
   lib/flat2.f90
   lib/flat4.f90
   lib/flat65.f90
+  lib/fmtmsg.f90
   lib/foldspec9f.f90
   lib/four2a.f90
-  lib/fmtmsg.f90
+  lib/fqso_first.f90
   lib/gen4.f90
   lib/gen65.f90
   lib/gen9.f90
diff --git a/lib/jt65a.f90 b/lib/jt65a.f90
index 7ae2656be..ca365841b 100644
--- a/lib/jt65a.f90
+++ b/lib/jt65a.f90
@@ -68,6 +68,8 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nsubmode,   &
       call timer('sync65  ',1)
     endif
 
+    call fqso_first(nfqso,ntol,ca,ncand)
+
     nvec=ntrials
     if(ncand.gt.75) then
 !      write(*,*) 'Pass ',ipass,' ncandidates too large ',ncand