diff --git a/lang/m2/comp/LLlex.c b/lang/m2/comp/LLlex.c
index ca1b208a2..4506d097c 100644
--- a/lang/m2/comp/LLlex.c
+++ b/lang/m2/comp/LLlex.c
@@ -496,9 +496,17 @@ again:
 					tk->TOK_INT = 0;
 					while (*np) {
 						arith old = tk->TOK_INT;
+						int c;
 
+						if (is_dig(*np)) {
+							c = *np++ - '0';
+						}
+						else {
+							assert(is_hex(*np));
+							c = *np++ - 'A' + 10;
+						}
 						tk->TOK_INT = tk->TOK_INT*base
-							+ (*np++ - '0');
+							+ c;
 						sgnswtch += (old < 0) ^
 							    (tk->TOK_INT < 0);
 					}