diff --git a/CMakeLists.txt b/CMakeLists.txt
index b97a9516f..97f6f6c6e 100644
--- a/CMakeLists.txt
+++ b/CMakeLists.txt
@@ -327,6 +327,7 @@ set (wsjt_FSRCS
   lib/baddata.f90
   lib/ccf2.f90
   lib/ccf65.f90
+  lib/fsk4hf/chkcrc10.f90
   lib/chkhist.f90
   lib/chkmsg.f90
   lib/chkss2.f90
diff --git a/lib/fsk4hf/chkcrc10.f90 b/lib/fsk4hf/chkcrc10.f90
new file mode 100644
index 000000000..abe7bd79e
--- /dev/null
+++ b/lib/fsk4hf/chkcrc10.f90
@@ -0,0 +1,27 @@
+subroutine chkcrc10(decoded,nbadcrc)
+
+  use crc
+  integer*1 decoded(60)
+  integer*1, target:: i1Dec8BitBytes(9)
+
+! Check the CRC
+  do ibyte=1,6
+     itmp=0
+     do ibit=1,8
+        itmp=ishft(itmp,1)+iand(1,decoded((ibyte-1)*8+ibit))
+     enddo
+     i1Dec8BitBytes(ibyte)=itmp
+  enddo
+  i1Dec8BitBytes(7)=decoded(49)*128+decoded(50)*64
+
+! Pack received CRC into bytes 8 and 9 for crc10_check
+  i1Dec8BitBytes(8)=decoded(51)*2+decoded(52)
+  i1Dec8BitBytes(9)=decoded(53)*128 + decoded(54)*64+decoded(55)*32 +   &
+       decoded(56)*16
+  i1Dec8BitBytes(9)=i1Dec8BitBytes(9) + decoded(57)*8+decoded(58)*4 +   &
+       decoded(59)*2+decoded(60)*1
+  nbadcrc=1
+  if(crc10_check(c_loc(i1Dec8BitBytes),9)) nbadcrc=0
+
+  return
+end subroutine chkcrc10
diff --git a/lib/fsk4hf/dbpsksim.f90 b/lib/fsk4hf/dbpsksim.f90
index 640cc8c61..ce460f081 100644
--- a/lib/fsk4hf/dbpsksim.f90
+++ b/lib/fsk4hf/dbpsksim.f90
@@ -227,7 +227,9 @@ program dbpsksim
         apmask=0
         max_iterations=10
         call bpdecode120(llr,apmask,max_iterations,decoded,niterations,cw)
-        if(niterations.lt.0 .or. count(msgbits.ne.decoded).gt.0) nfe2=nfe2+1    
+        if(niterations.ge.0) call chkcrc10(decoded,nbadcrc)
+        if(niterations.lt.0 .or. count(msgbits.ne.decoded).gt.0 .or.        &
+             nbadcrc.ne.0) nfe2=nfe2+1
      enddo
      
      fsigma=sqrt(sqf/iters)