diff --git a/lib/genmsk.f90 b/lib/genmsk.f90
index 93fa0202a..804e60075 100644
--- a/lib/genmsk.f90
+++ b/lib/genmsk.f90
@@ -53,7 +53,7 @@ subroutine genmsk(msg0,ichk,msgsent,i4tone,itype)
      if(message(1:1).eq.'<') then
         call genmsk_short(message,msgsent,i4tone,itype)
         if(itype.lt.0) go to 999
-        itone(38)=-37
+        i4tone(38)=-37
         go to 900
      endif
 
diff --git a/lib/genmsk_short.f90 b/lib/genmsk_short.f90
deleted file mode 100644
index 70aca56e3..000000000
--- a/lib/genmsk_short.f90
+++ /dev/null
@@ -1,45 +0,0 @@
-subroutine genmsk_short(msg,msgsent,itone,itype)
-
-  use hashing
-  character*22 msg0,msg,msgsent
-  character*3 crpt,rpt(0:7)
-  integer itone(37)
-  integer b11(11)
-  integer golay_15_3(0:7)
-  data b11/1,1,1,0,0,0,1,0,0,1,0/         !Barker 11 code
-  data rpt        /'26 ','27 ','28 ','R26','R27','R28','RRR','73 '/
-  data golay_15_3/00000,07025,11704,14025,19164,20909,26468,31765/
-
-  itype=-1
-  msgsent='*** bad message ***'
-  itone=0
-  i1=index(msg,'>')
-  if(i1.lt.9) go to 900
-  crpt=msg(i1+2:i1+5)
-  do i=0,7
-     if(crpt.eq.rpt(i)) go to 10
-  enddo
-  go to 900
-
-10 itone(1:11)=b11
-  irpt=i
-  ncodeword=golay_15_3(irpt)            !Save the 15-bit codeword for report
-  do i=26,12,-1                         !Insert codeword into itone array
-     itone(i)=iand(ncodeword,1)
-     ncodeword=ncodeword/2
-  enddo 
-  call hash(msg(2:i1-1),i1-2,ihash)  
-  ihash=iand(ihash,1023)                   !10-bit hash for the two callsigns
-  n=ihash
-  do i=36,27,-1
-     itone(i)=iand(n,1)
-     n=n/2
-  enddo
-  n=count(itone(1:36).eq.0)
-  itone(37)=1
-  if(iand(n,1).eq.1) itone(37)=0
-  msgsent=msg
-  itype=7
-
-900 return
-end subroutine genmsk_short