diff --git a/lib/ft8/genft8.f90 b/lib/ft8/genft8.f90
index 949348530..41ff546c3 100644
--- a/lib/ft8/genft8.f90
+++ b/lib/ft8/genft8.f90
@@ -18,7 +18,6 @@ subroutine genft8(msg,i3,n3,msgsent,msgbits,itone)
   n3=-1
   call pack77(msg,i3,n3,c77)
   call unpack77(c77,0,msgsent,unpk77_success)
-write(*,*) 'in genft8 ',i3,n3,msgsent
   read(c77,'(77i1)',err=1) msgbits
   if(unpk77_success) go to 2
 1 msgbits=0