From c1e1d3864f4cf7c3f15a723f40601d33562d2c8d Mon Sep 17 00:00:00 2001
From: Jordan Sherer <jordan@widefido.com>
Date: Mon, 6 Aug 2018 11:01:37 -0400
Subject: [PATCH] Fixed bug in new decoder alphabet

---
 lib/ft8/ft8b.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/ft8/ft8b.f90 b/lib/ft8/ft8b.f90
index 67a9cbe..ce3d7c1 100644
--- a/lib/ft8/ft8b.f90
+++ b/lib/ft8/ft8b.f90
@@ -382,6 +382,7 @@ subroutine ft8b(dd0,newdat,nQSOProgress,nfqso,nftx,ndepth,lapon,lapcqonly,   &
         decoded=decoded0
 
 ! This needs fixing for messages with i3bit=1:        
+        message(1:12)=origmsg(1:12)
         call genft8(message,mygrid6,bcontest,i3bit,msgsent,msgbits,itone)
         if(lsubtract) call subtractft8(dd0,itone,f1,xdt2)
         xsig=0.0