diff --git a/constants.asm b/constants.asm
index 085a42e..1beb554 100644
--- a/constants.asm
+++ b/constants.asm
@@ -593,14 +593,14 @@ keycodes ;tables for converting KeyCode to Screen Code (38 -1  characters)
     .by $0d,$01,$05,$00,$25,$23,$08,$0a
     .by $2f,$28,$3e,$2d,$0b,$10,$2e,$16
     .by $2b,$17,$1f,$1e,$1a,$18,$1d,$1b
-    .by $33,$35,$30,$32,$22 ;,$0e <-- hyphen removed from the table, sorry hyphen lovers
+    .by $33,$35,$30,$32,$22,$21 ;,$0e <-- hyphen removed from the table, sorry hyphen lovers
 keycodesEnd
 scrcodes
     dta d"abcdefgh"
     dta d"ijklmnop"
     dta d"qrstuvwx"
     dta d"yz123456"
-    dta d"7890." ; "-"
+    dta d"7890. " ; "-"
 ;-----------------------------------
 gameOverSpritesTop
     ; end of the Gover sprites by number of players
diff --git a/scorch.xex b/scorch.xex
index 6ce5151..ad09662 100644
Binary files a/scorch.xex and b/scorch.xex differ
diff --git a/textproc.asm b/textproc.asm
index 8236043..4965602 100644
--- a/textproc.asm
+++ b/textproc.asm
@@ -1096,14 +1096,20 @@ NoArrowDown
     
     ldy #0
 @     lda TanksNames,x
-      beq endOfTankName
+;      beq endOfTankName
       sta NameAdr,y
       inx
       iny
       cpy #8
     bne @-
 endOfTankName
-    
+
+@	lda NameAdr,y
+	bne LastNameChar
+	dey
+	bpl @-
+LastNameChar
+	iny
 
     lda #$80 ; place cursor on the end
     sta NameAdr,y