diff --git a/packjt.f90 b/packjt.f90
index 5009ec8..22f7311 100644
--- a/packjt.f90
+++ b/packjt.f90
@@ -526,6 +526,7 @@ subroutine packcall(callsign,ncall,text)
    endif
 
    call unpackcall(nc2,c2,junk1,junk2)
+   msgcall=c2
    msggrid='    '
    if(ng.lt.32400 .and. ng.ne.533) then
       dlat=mod(ng,180)-90