diff --git a/Configuration.ui b/Configuration.ui
index 9b1685930..129a7d37d 100644
--- a/Configuration.ui
+++ b/Configuration.ui
@@ -6,7 +6,7 @@
0
0
- 532
+ 534
546
@@ -3076,10 +3076,10 @@ soundcard changes
-
-
+
+
diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index 6af3b3bf9..706cccb99 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -232,10 +232,14 @@ subroutine unpack77(c77,msg)
"NB ","NS ","QC ","ON ","MB ","SK ","AB ","BC ","NWT","NF ", &
"LB ","NU ","VT ","PEI","DC "/
- if(index(c77,'*').ge.1) then !Check for bad data
- msg='QUIRK 2'
- return
- endif
+
+! Check for bad data
+ do i=1,77
+ if(c77(i:i).ne.'0' .and. c77(i:i).ne.'1') then
+ msg='QUIRK 2'
+ return
+ endif
+ enddo
read(c77(72:77),'(2b3)') n3,i3
msg=repeat(' ',37)