--- /home/martin/hdoc-0.8.2/hsparser/HsLexer.lhs	Sat May 11 19:20:29 2002
+++ HsLexer.lhs	Thu May 16 14:00:19 2002
@@ -378,7 +378,7 @@
                      c:s    -> charEnd c s loc y (x+1)
                      []     -> error "Internal error: lexChar"
 
-  where charEnd c ('\'':s) = \loc x -> cont (Character c) s loc (x+1)
+  where charEnd c ('\'':s) = \loc y x -> cont (Character c) s loc y (x+1)
         charEnd c s = parseError "Improperly terminated character constant" s
 
 lexString :: (Token -> P a) -> P a