diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index fe6ce0863..b15368a4b 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -87,6 +87,9 @@ contains
 
       this%callback => callback
       hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall        ! initialize for use in packjt77
+      mycall13=mycall
+
       smax1=0.
       nd1=0