From eafaa1ce2829285ebce3a34bbb6635e6c5c86fb2 Mon Sep 17 00:00:00 2001
From: Joe Taylor <joe@princeton.edu>
Date: Thu, 9 Apr 2020 10:40:21 -0400
Subject: [PATCH] Fix a bug in generating EME shorthand messages in JT65sim.

---
 lib/jt65sim.f90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lib/jt65sim.f90 b/lib/jt65sim.f90
index 67f33acfb..26e558f44 100644
--- a/lib/jt65sim.f90
+++ b/lib/jt65sim.f90
@@ -176,7 +176,9 @@ program jt65sim
 
         nprc_test=0
         i1=len(trim(msg))
-        if(msg(i1-3:i1).eq.' OOO') nprc_test=1
+        if(i1.gt.10) then
+           if(msg(i1-3:i1).eq.' OOO') nprc_test=1
+        endif
         k=0
         do j=1,nsym                         !Insert sync and data into itone()
            if(nprc(j).eq.nprc_test) then