diff --git a/libm65/map65a.f90 b/libm65/map65a.f90
index f6cc4fb2e..6f9d90b46 100644
--- a/libm65/map65a.f90
+++ b/libm65/map65a.f90
@@ -212,6 +212,7 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                     call flush(13)
                     go to 999
                  endif
+
                  call timer('decode1a',0)
                  ifreq=i
                  ikHz=nint(freq+0.5*(nfa+nfb)-foffset)-nfshift
@@ -223,9 +224,9 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
                  call timer('decode1a',1)
                  if(nqd.eq.2) then
                     call timer('qra64   ',0)
-                    call qra64b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,     &
+                    call q65b(nutc,nqd,fcenter,nfcal,nfsample,ikhz,     &
                          mousedf,ntol,xpol,mycall,hiscall,hisgrid,        &
-                         mode64,nwrite_qra64)
+                         mode64)
                     call timer('qra64   ',1)
                     cycle
                  endif