diff --git a/lexer.c b/lexer.c
index 9d6c4a925337eb0092853a73d0886672220c002e..217df8838604600ce1c716f5fdeeb09bacc33e24 100644
--- a/lexer.c
+++ b/lexer.c
@@ -114,7 +114,7 @@ TOKEN nexttok()
 			if( isalpha( c ) )
 			{
 				curtok = tID;
-				for( pos=0; isalpha(c) || isdigit(c); )
+				for( pos=0; isalpha(c)||isdigit(c)||c=='_'; )
 				{
 					if( pos<MAXIDSIZE-1 )
 						lexidval[pos++] = c;