diff --git a/Language/Haskell/Lexer.hs b/Language/Haskell/Lexer.hs
--- a/Language/Haskell/Lexer.hs
+++ b/Language/Haskell/Lexer.hs
@@ -505,7 +505,7 @@
 		_		-> fail "Illegal escape sequence"
 
     where
-	checkChar n | n <= 0x01FFFF = return (chr (fromInteger n))
+	checkChar n | n <= 0x10FFFF = return (chr (fromInteger n))
 	checkChar _		    = fail "Character constant out of range"
 
 -- Production cntrl from section B.2
diff --git a/Language/Haskell/Parser.hs b/Language/Haskell/Parser.hs
--- a/Language/Haskell/Parser.hs
+++ b/Language/Haskell/Parser.hs
@@ -31,7 +31,7 @@
 import GlaExts
 #endif
 
--- parser produced by Happy Version 1.16
+-- parser produced by Happy Version 1.17.2
 
 newtype HappyAbsSyn  = HappyAbsSyn HappyAny
 #if __GLASGOW_HASKELL__ >= 607
@@ -837,10 +837,10 @@
 happyOut136 :: (HappyAbsSyn ) -> (HsName)
 happyOut136 x = unsafeCoerce# x
 {-# INLINE happyOut136 #-}
-happyInTok :: Token -> (HappyAbsSyn )
+happyInTok :: (Token) -> (HappyAbsSyn )
 happyInTok x = unsafeCoerce# x
 {-# INLINE happyInTok #-}
-happyOutTok :: (HappyAbsSyn ) -> Token
+happyOutTok :: (HappyAbsSyn ) -> (Token)
 happyOutTok x = unsafeCoerce# x
 {-# INLINE happyOutTok #-}
 
@@ -3787,7 +3787,7 @@
 happyThen1 = happyThen
 happyReturn1 :: () => a -> P a
 happyReturn1 = happyReturn
-happyError' :: () => Token -> P a
+happyError' :: () => (Token) -> P a
 happyError' tk = (\token -> happyError) tk
 
 parse = happySomeParser where
@@ -3806,14 +3806,13 @@
 -- | Parse of a string, which should contain a complete Haskell 98 module.
 parseModuleWithMode :: ParseMode -> String -> ParseResult HsModule
 parseModuleWithMode mode = runParserWithMode mode parse
-{-# LINE 1 "GenericTemplate.hs" #-}
-{-# LINE 1 "GenericTemplate.hs" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
 {-# LINE 1 "<built-in>" #-}
 {-# LINE 1 "<command line>" #-}
-{-# LINE 1 "GenericTemplate.hs" #-}
+{-# LINE 1 "templates/GenericTemplate.hs" #-}
 -- Id: GenericTemplate.hs,v 1.26 2005/01/14 14:47:22 simonmar Exp 
 
-{-# LINE 28 "GenericTemplate.hs" #-}
+{-# LINE 28 "templates/GenericTemplate.hs" #-}
 
 
 data Happy_IntList = HappyCons Int# Happy_IntList
@@ -3822,11 +3821,11 @@
 
 
 
-{-# LINE 49 "GenericTemplate.hs" #-}
+{-# LINE 49 "templates/GenericTemplate.hs" #-}
 
-{-# LINE 59 "GenericTemplate.hs" #-}
+{-# LINE 59 "templates/GenericTemplate.hs" #-}
 
-{-# LINE 68 "GenericTemplate.hs" #-}
+{-# LINE 68 "templates/GenericTemplate.hs" #-}
 
 infixr 9 `HappyStk`
 data HappyStk a = HappyStk a (HappyStk a)
@@ -3878,7 +3877,7 @@
  	 action | check     = indexShortOffAddr happyTable off_i
 		| otherwise = indexShortOffAddr happyDefActions st
 
-{-# LINE 127 "GenericTemplate.hs" #-}
+{-# LINE 127 "templates/GenericTemplate.hs" #-}
 
 
 indexShortOffAddr (HappyA# arr) off =
@@ -3911,7 +3910,7 @@
 -----------------------------------------------------------------------------
 -- HappyState data type (not arrays)
 
-{-# LINE 170 "GenericTemplate.hs" #-}
+{-# LINE 170 "templates/GenericTemplate.hs" #-}
 
 -----------------------------------------------------------------------------
 -- Shifting a token
diff --git a/Language/Haskell/Syntax.hs b/Language/Haskell/Syntax.hs
--- a/Language/Haskell/Syntax.hs
+++ b/Language/Haskell/Syntax.hs
@@ -304,7 +304,7 @@
   deriving (Eq,Show)
 #endif
 
--- ^ Safety level for invoking a foreign entity
+-- | Safety level for invoking a foreign entity
 data HsSafety
 	= HsSafe	-- ^ call may generate callbacks
 	| HsUnsafe	-- ^ call will not generate callbacks
diff --git a/haskell-src.cabal b/haskell-src.cabal
--- a/haskell-src.cabal
+++ b/haskell-src.cabal
@@ -1,5 +1,5 @@
 name:		haskell-src
-version:	1.0.1.1
+version:	1.0.1.2
 license:	BSD3
 license-file:	LICENSE
 author:		Simon Marlow, Sven Panne and Noel Winstanley