diff --git a/lib/ft4/subtractft4.f90 b/lib/ft4/subtractft4.f90
index cb9f2626a..83470d7ea 100644
--- a/lib/ft4/subtractft4.f90
+++ b/lib/ft4/subtractft4.f90
@@ -11,7 +11,6 @@ subroutine subtractft4(dd,itone,f0,dt)
 
   parameter (NMAX=18*3456,NFRAME=(103+2)*512)
   parameter (NFFT=NMAX,NFILT=1400)
-!  parameter (NFFT=NMAX,NFILT=400)
   real*4  dd(NMAX), window(-NFILT/2:NFILT/2), xjunk
   complex cref,camp,cfilt,cw
   integer itone(103)
diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index 491782a91..b505762e4 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -464,7 +464,9 @@ contains
                   if(unpk77_success) then
                      call get_ft4_tones_from_77bits(message77,i4tone)
                      dt=real(ibest)/750.0
+                     call timer('subtract',0)
                      call subtractft4(dd,i4tone,f0,dt)
+                     call timer('subtract',1)
                   endif
                   idupe=0
                   do i=1,ndecodes