diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index cbfb0b1b9..686d8ce88 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -446,8 +446,9 @@ contains
                      endif
                      nsnr=nint(max(-21.0,xsnr))
                      xdt=ibest/666.67 - 0.5
-!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4)') &
-!  nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg
+                     qual=1.0-(nharderror+dmin)/60.0 
+!write(21,'(i6.6,i5,2x,f4.1,i6,2x,a37,2x,f4.1,3i3,f5.1,i4,i4,i4,f6.2)') &
+!  nutc,nsnr,xdt,nint(f1),message,smax,iaptype,ipass,isp,dmin,nsync_qual,nharderror,iseg,qual
                      call this%callback(smax,nsnr,xdt,f1,message,iaptype,qual)
                      exit
                   endif