From cad65680e2c3d9bd4bb6318c8c734ddbf38af049 Mon Sep 17 00:00:00 2001
From: "A. Fachat" <fachat@web.de>
Date: Mon, 18 Aug 2014 22:56:02 +0200
Subject: [PATCH] fix double character

---
 xa/src/xalisting.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/xa/src/xalisting.c b/xa/src/xalisting.c
index 11955b4..85440c9 100644
--- a/xa/src/xalisting.c
+++ b/xa/src/xalisting.c
@@ -449,7 +449,7 @@ int list_tokens(char *buf, signed char *input, int len) {
 		switch(input[inp]) {
 		case T_CAST:
 			outp += list_string(buf+outp, formatp->escape_char(input[inp+1]));
-			inp++;
+			inp+=2;
 			break;
 		case T_VALUE:
 			/*outp += list_char(buf+outp, 'V');*/