diff --git a/map65/libm65/map65a.f90 b/map65/libm65/map65a.f90
index fa29dac65..9e2a77930 100644
--- a/map65/libm65/map65a.f90
+++ b/map65/libm65/map65a.f90
@@ -67,9 +67,10 @@ subroutine map65a(dd,ss,savg,newdat,nutc,fcenter,ntol,idphi,nfa,nfb,        &
 !###
 !  do k=1,ncand
 !     freq=cand(k)%f+nkhz_center-48.0-1.27046
-!     write(*,3010) nutc,k,db(cand(k)%snr),cand(k)%f,freq,cand(k)%xdt,    &
-!          cand(k)%ipol,cand(k)%iflip,cand(k)%indx
-!3010 format('=a',i5.4,i5,f8.2,3f10.3,2i3,i6)
+!     ipk=cand(k)%indx
+!     write(*,3010) nutc,k,db(cand(k)%snr),freq,cand(k)%xdt,    &
+!          cand(k)%ipol,cand(k)%iflip,ipk,ldecoded(ipk)
+!3010 format('=a',i5.4,i5,f8.2,f10.3,f8.2,2i3,i6,L4)
 !  enddo
 !###