Index: src/compiler98/LexLow.hs
===================================================================
RCS file: /home/cvs/root/nhc98/src/compiler98/LexLow.hs,v
retrieving revision 1.9
diff -u -r1.9 LexLow.hs
--- src/compiler98/LexLow.hs	30 Jun 2004 12:29:28 -0000	1.9
+++ src/compiler98/LexLow.hs	14 Jun 2005 10:20:45 -0000
@@ -98,7 +98,8 @@
   else if isLower x
   then  case splitWhile isNhcId [] xs of
 	(var,xs) -> LEX_VARID var 0 (length var) xs
-  else LEX_ERROR x xs
+--else LEX_ERROR x xs	-- maybe better to drop through to lowercase=True ?
+  else lexOne True xs
 
 lexOne True xs@('_':_) =
   case splitWhile isNhcId [] xs of