diff --git a/lib/jt65.f90 b/lib/jt65.f90
index 3f0658371..93410d0df 100644
--- a/lib/jt65.f90
+++ b/lib/jt65.f90
@@ -88,7 +88,8 @@ nrobust=0
 !     write(56) ihdr(1:11)
 
      call jt65a(dd,npts,newdat,nutc,nfa,nfb,nfqso,ntol,nsubmode, &
-                minsync,nagain,n2pass,nrobust,ntrials, naggressive,ndepth,ndecoded)
+                minsync,nagain,n2pass,nrobust,ntrials, naggressive,ndepth, &
+                nexp_decoded,ndecoded)
      call timer('jt65a   ',1)
   enddo