--- lib/hint65.f90.old	2017-09-02 01:31:41.000000000 +0000
+++ lib/hint65.f90	2017-10-07 15:50:00.485221045 +0000
@@ -3,7 +3,7 @@
   use packjt
   use prog_args
   parameter (MAXCALLS=10000,MAXRPT=63)
-  parameter (MAXMSG=2*MAXCALLS + 2 + MAXRPT)
+  parameter (MAXMSG=3*MAXCALLS + 2 + MAXRPT)
   real s3(64,63)
   integer*1 sym1(0:62,MAXMSG)
   integer*1 sym2(0:62,MAXMSG)
@@ -72,7 +72,7 @@
      j=0
      do i=-1,ncalls
         if(i.eq.0 .and. hiscall.eq.'      ' .and. hisgrid(1:4).eq.'    ') cycle
-        mz=2
+        mz=3
         if(i.eq.-1) mz=1
         if(i.eq.0) mz=65
         do m=1,mz
@@ -86,6 +86,7 @@
            else
               if(m.eq.1)  msg=mycall//' '//call2(i)//' '//grid2(i)
               if(m.eq.2)  msg='CQ '//call2(i)//' '//grid2(i)
+              if(m.eq.3)  msg=call2(i)//' '//hiscall//' '//hisgrid(1:4)
            endif
            call fmtmsg(msg,iz)
            call packmsg(msg,dgen,itype,.false.) !Pack message into 72 bits