diff -uNr topdrawer.ORIG/src/td2ugs.f topdrawer/src/td2ugs.f
--- topdrawer.ORIG/src/td2ugs.f	Fri Sep 15 23:48:45 1995
+++ topdrawer/src/td2ugs.f	Tue Jul 15 13:54:33 2003
@@ -16,14 +16,17 @@
         else if (texts(n:n).eq.'A') then
           texts(n:n)='W'
         else if (texts(n:n).eq.'X') then
-          texts(n:n)='T'
           if (textp(n:n).eq.'L') then
+            texts(n:n)='T'
             textp(n:n)='K'
           else if (textp(n:n).eq.'R') then
+            texts(n:n)='T'
             textp(n:n)='F'
           else if (textp(n:n).eq.'<') then
+            texts(n:n)='T'
             textp(n:n)='L'
           else if (textp(n:n).eq.'>') then
+            texts(n:n)='T'
             textp(n:n)='G'
           end if
         else if (texts(n:n).eq.'S') then