diff --git a/lib/fsk4hf/ft2d.f90 b/lib/fsk4hf/ft2d.f90
index fa32e390e..c42bd38c4 100644
--- a/lib/fsk4hf/ft2d.f90
+++ b/lib/fsk4hf/ft2d.f90
@@ -201,7 +201,7 @@ program ft2d
            if(sum(message77).eq.0) cycle
            if( nharderror.ge.0 ) then
               write(c77,'(77i1)') message77(1:77)
-              call unpack77(c77,message,unpk77_success)
+              call unpack77(c77,1,message,unpk77_success)
               idupe=0
               do i=1,ndecodes
                  if(decodes(i).eq.message) idupe=1 
diff --git a/lib/fsk4hf/genft2.f90 b/lib/fsk4hf/genft2.f90
index f416c3616..2eb36bccc 100644
--- a/lib/fsk4hf/genft2.f90
+++ b/lib/fsk4hf/genft2.f90
@@ -68,7 +68,7 @@ subroutine genft2(msg0,ichk,msgsent,i4tone,itype)
      i3=-1
      n3=-1
      call pack77(message,i3,n3,c77)
-     call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent
+     call unpack77(c77,0,msgsent,unpk77_success) !Unpack to get msgsent
 
      if(ichk.eq.1) go to 999
      read(c77,"(77i1)") msgbits