diff --git a/lib/fsk4hf/ft8sim.f90 b/lib/fsk4hf/ft8sim.f90
index 13479f0a2..9e2f50f36 100644
--- a/lib/fsk4hf/ft8sim.f90
+++ b/lib/fsk4hf/ft8sim.f90
@@ -94,7 +94,7 @@ program ft8sim
      write(10) h,iwave                !Save to *.wav file
      close(10)
      write(*,1110) ifile,xdt,f0,snrdb,fname
-1110 format(i4,f7.2,f8.2,f7.1,2x,a16)
+1110 format(i4,f7.2,f8.2,f7.1,2x,a17)
 !     do i=0,NZ-1
 !        write(13,3001) i,i/12000.0,c(i),iwave(i+1)
 !3001    format(i8,f12.6,2f12.3,i8)
diff --git a/lib/fsk4hf/genft8.f90 b/lib/fsk4hf/genft8.f90
index 5e652cb02..7b2535aa5 100644
--- a/lib/fsk4hf/genft8.f90
+++ b/lib/fsk4hf/genft8.f90
@@ -7,7 +7,7 @@ subroutine genft8(msg,msgsent,itone)
   include 'ft8_params.f90'
   character*22 msg,msgsent
   character*87 cbits
-  logical checksumok
+!  logical checksumok
   integer*4 i4Msg6BitWords(12)                !72-bit message as 6-bit words
   integer*1 msgbits(KK),codeword(3*ND)
   integer*1, target:: i1Msg8BitBytes(11)