diff --git a/scorch.xex b/scorch.xex
index ad09662..ec3da2a 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 4965602..25a2c60 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -1571,14 +1571,12 @@ DOTNcharloop
     mwa temp TextAddress
 
     ;find length of the tank's name
-    ldy #0
+    ldy #7
 @
       lda (temp),y
-      beq end_found
-      iny
-      cpy #8
+      bne end_found
+      dey
     bne @-
-    dey    
    
 end_found
     iny