diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index b72e70164..70040d1af 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -419,9 +419,9 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,nzhsym,lapon,     &
      nbadcrc=0  ! If we get this far: valid codeword, valid (i3,n3), nonquirky message.
      call get_ft8_tones_from_77bits(message77,itone)
      if(lsubtract) call subtractft8(dd0,itone,f1,xdt)
-     write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract,   &
-          f1,xdt,msg37(1:22); flush(21)
-3001 format(5i3,L3,f7.1,f7.2,2x,a22)
+!     write(21,3001) nzhsym,npasses,nqsoprogress,ipass,iaptype,lsubtract,   &
+!          f1,xdt,msg37(1:22); flush(21)
+!3001 format(5i3,L3,f7.1,f7.2,2x,a22)
      xsig=0.0
      xnoi=0.0
      do i=1,79