diff --git a/lib/extract.F90 b/lib/extract.F90
index d870b6016..4760aa332 100644
--- a/lib/extract.F90
+++ b/lib/extract.F90
@@ -115,8 +115,6 @@ subroutine extract(s3,nadd,nqd,ncount,nhist,decoded,ltext,nbmkv)
   endif
 
 900 continue
-  if(nbmkv.eq.1) numbm=numbm+1
-  if(nbmkv.eq.2) numkv=numkv+1
 
   return
 end subroutine extract
diff --git a/lib/jt65a.f90 b/lib/jt65a.f90
index 3265fe8da..a1578fa92 100644
--- a/lib/jt65a.f90
+++ b/lib/jt65a.f90
@@ -12,6 +12,7 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
   logical done(NSZ)
   real a(5)
   character decoded*22
+  common/decstats/num65,numbm,numkv,num9,numfano
   save
 
   dd=0.
@@ -76,6 +77,8 @@ subroutine jt65a(dd0,npts,newdat,nutc,nf1,nf2,nfqso,ntol,nagain,ndecoded)
            if(nsnr.lt.-30) nsnr=-30
            if(nsnr.gt.-1) nsnr=-1
            dt=dt-tskip
+           if(nbmkv.eq.1) numbm=numbm+1
+           if(nbmkv.eq.2) numkv=numkv+1 
 
 ! Serialize writes - see also decjt9.f90
 
diff --git a/lib/jt9.f90 b/lib/jt9.f90
index 4d9a33e9e..e123215f3 100644
--- a/lib/jt9.f90
+++ b/lib/jt9.f90
@@ -222,7 +222,7 @@ program jt9
   write(12,1100) numbm,numkv,num65
 1100 format(/'JT65: ',i6,' BM and',i7,' KV in',i7,' attempts')
   write(12,1110) numfano,num9
-1110 format('JT9:  ',i6,' Fano in',12x,i7,' attempts')
+1110 format( 'JT9:  ',i6,' Fano             in',i7,' attempts')
 
 ! Save wisdom and free memory
   iret=fftwf_export_wisdom_to_filename(wisfile)