diff --git a/Configuration.ui b/Configuration.ui
index f12f4aaa3..5ceb36e7b 100644
--- a/Configuration.ui
+++ b/Configuration.ui
@@ -2935,7 +2935,7 @@ Right click for insert and delete options.</string>
              </sizepolicy>
             </property>
             <property name="toolTip">
-             <string>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;North American VHF/UHF/Mucrowave contests and others in which a 4-character grid locator is the required exchange.&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</string>
+             <string>&lt;html&gt;&lt;head/&gt;&lt;body&gt;&lt;p&gt;North American VHF/UHF/Microwave contests and others in which a 4-character grid locator is the required exchange.&lt;/p&gt;&lt;/body&gt;&lt;/html&gt;</string>
             </property>
             <property name="text">
              <string>NA VHF Contest</string>
diff --git a/lib/77bit/packjt77.f90 b/lib/77bit/packjt77.f90
index aa06abf6d..44a273944 100644
--- a/lib/77bit/packjt77.f90
+++ b/lib/77bit/packjt77.f90
@@ -17,10 +17,7 @@ subroutine hash10(n10,c13)
   do i=1,nzhash
      if(ihash10(i).eq.n10) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo
@@ -36,10 +33,7 @@ subroutine hash12(n12,c13)
   do i=1,nzhash
      if(ihash12(i).eq.n12) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo
@@ -56,10 +50,7 @@ subroutine hash22(n22,c13)
   do i=1,nzhash
      if(ihash22(i).eq.n22) then
         c13=callsign(i)
-        if(c13(1:1).ne.'<') then
-           n=len(trim(c13))
-           c13='<'//trim(c13)//'>'//'         '
-        endif
+        c13='<'//trim(c13)//'>'//'         '
         go to 900
      endif
   enddo