diff --git a/lib/q65_decode.f90 b/lib/q65_decode.f90
index 2c238b824..ec96ad4ec 100644
--- a/lib/q65_decode.f90
+++ b/lib/q65_decode.f90
@@ -118,7 +118,7 @@ contains
     endif
     decoded='                                     '
     if(irc.ge.0) then
-       irc=0                    !### TEMPORARY ??? ###
+       irc=(irc/100) * 100                  !### TEMPORARY ??? ###
        write(c77,1000) dat4
 1000   format(12b6.6,b5.5)
        call unpack77(c77,0,decoded,unpk77_success) !Unpack to get msgsent