diff --git a/lib/genmsk_128_90.f90 b/lib/genmsk_128_90.f90
index f1e82f683..7ced79f29 100644
--- a/lib/genmsk_128_90.f90
+++ b/lib/genmsk_128_90.f90
@@ -46,6 +46,7 @@ subroutine genmsk_128_90(msg0,ichk,msgsent,i4tone,itype)
     enddo
   endif
 
+  itype=1
   if(msg0(1:1).eq.'@') then                    !Generate a fixed tone
      read(msg0(2:5),*,end=1,err=1) nfreq       !at specified frequency
      go to 2
@@ -72,7 +73,9 @@ subroutine genmsk_128_90(msg0,ichk,msgsent,i4tone,itype)
         go to 999
      endif
 
-     call pack77(message,i3,n3,c77) 
+     i3=-1
+     n3=-1
+     call pack77(message,i3,n3,c77)
      call unpack77(c77,msgsent,unpk77_success) !Unpack to get msgsent
      if(ichk.eq.1) go to 999
      read(c77,"(77i1)") msgbits
diff --git a/mainwindow.cpp b/mainwindow.cpp
index 02298fa6e..022f90af4 100644
--- a/mainwindow.cpp
+++ b/mainwindow.cpp
@@ -88,7 +88,7 @@ extern "C" {
   void gen9_(char* msg, int* ichk, char* msgsent, int itone[],
                int* itext, fortran_charlen_t, fortran_charlen_t);
 
-  void genmsk_128_90_(char* msg, int* ichk, char* msgsent, int itone[], int* itext,
+  void genmsk_128_90_(char* msg, int* ichk, char* msgsent, int itone[], int* itype,
                       fortran_charlen_t, fortran_charlen_t);
 
   void gen65_(char* msg, int* ichk, char* msgsent, int itone[],