diff --git a/lib/ft8/genft8.f90 b/lib/ft8/genft8.f90
index f473328e8..bd472363d 100644
--- a/lib/ft8/genft8.f90
+++ b/lib/ft8/genft8.f90
@@ -1,4 +1,4 @@
-subroutine genft8(msg37,mygrid,bcontest,i3,n3,isync,msgsent37,msgbits,itone)
+subroutine genft8(msg37,mygrid,bcontest,i3,n3,isync,msgsent37,msgbits77,itone)
 
 ! Encode an FT8 message, producing array itone().
   
diff --git a/lib/ft8/genft8_174_91.f90 b/lib/ft8/genft8_174_91.f90
index 690cff1ef..67918e821 100644
--- a/lib/ft8/genft8_174_91.f90
+++ b/lib/ft8/genft8_174_91.f90
@@ -2,7 +2,6 @@ subroutine genft8_174_91(msg,mygrid,bcontest,i3,n3,msgsent,msgbits,itone)
 
 ! Encode an FT8 message, producing array itone().
   
-  use packjt
   use packjt77
   include 'ft8_params.f90'
   character msg*37,msgsent*37
diff --git a/mainwindow.cpp b/mainwindow.cpp
index c8a038aac..afb85f9ba 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -77,7 +77,7 @@ extern "C" {
               fortran_charlen_t);
 
   void genft8_(char* msg, char* MyGrid, bool* bcontest, int* i3, int* n3, int* isync, char* msgsent,
-               char ft8msgbits[], int itone[], fortran_charlen_t, fortran_charlen_t,
+               int ft8msgbits[], int itone[], fortran_charlen_t, fortran_charlen_t,
                fortran_charlen_t);
 
   void parse77_(char* msg, int* i3, int* n3, fortran_charlen_t);
@@ -3502,8 +3502,9 @@ void MainWindow::guiUpdate()
               if(m_config.bGenerate77()) m_isync=2;
               qDebug() << "itype=" << itype << "i3, n3:"<< m_i3 << m_n3 << "isync="<< m_isync << ui->tx6->text();
               char ft8msgbits[75 + 12]; //packed 75 bit ft8 message plus 12-bit CRC
+              int ft8msgbits[77]; 
               genft8_(message, MyGrid, &bcontest, &m_i3, &m_n3, &m_isync, msgsent,
-                      const_cast<char *> (ft8msgbits), const_cast<int *> (itone), 37, 6, 37);
+                      const_cast<int *> (ft8msgbits), const_cast<int *> (itone), 37, 6, 37);
 
               if(m_config.bFox()) {
                 //Fox must generate the full Tx waveform, not just an itone[] array.