diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index d6cad6999..95c7d91f7 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -108,6 +108,7 @@ contains
     nfft1=ntrperiod*12000
     nfft2=ntrperiod*6000
     npasses=1
+    nhist2=0
     if(lagain) ndepth=ior(ndepth,3)       !Use 'Deep' for manual Q65 decodes
     dxcall13=hiscall  ! initialize for use in packjt77
     mycall13=mycall
diff --git a/lib/qra/q65/q65_set_list2.f90 b/lib/qra/q65/q65_set_list2.f90
index 6cce406c6..a01681e6d 100644
--- a/lib/qra/q65/q65_set_list2.f90
+++ b/lib/qra/q65/q65_set_list2.f90
@@ -11,7 +11,6 @@ subroutine q65_set_list2(mycall,hiscall,hisgrid,callers,nhist2,codewords,ncw)
   integer codewords(63,MAX_NCW)
   integer itone(85)
   integer isync(22)
-  integer time
   type(q3list) callers(MAX_CALLERS)
 
   data isync/1,9,12,13,15,22,23,26,27,33,35,38,46,50,55,60,62,66,69,74,76,85/