diff --git a/lib/ft4_decode.f90 b/lib/ft4_decode.f90
index dc08df1b3..fa53f57be 100644
--- a/lib/ft4_decode.f90
+++ b/lib/ft4_decode.f90
@@ -94,6 +94,9 @@ contains
 
       this%callback => callback
       hhmmss=cdatetime0(8:13)
+      dxcall13=hiscall
+      mycall13=mycall
+
       if(first) then
          fs=12000.0/NDOWN                !Sample rate after downsampling
          dt=1/fs                         !Sample interval after downsample (s)