diff --git a/ghc/compiler/parser/Lex.lhs b/ghc/compiler/parser/Lex.lhs
index 43e35b5cc6577c75390f3b79d90b8b974bc4de26..b8f25953b3019cad50f0d9b7923c53cf4ad6b41c 100644
--- a/ghc/compiler/parser/Lex.lhs
+++ b/ghc/compiler/parser/Lex.lhs
@@ -526,9 +526,8 @@ lexToken cont glaexts buf =
 		(_:ctx') -> cont ITccurly (incLexeme buf) s{context=ctx'}
 		_ -> lexError "too many '}'s" buf s
 
-    '#'# | flag glaexts 
-	 -> case lookAhead# buf 1# of
-		')'# -> cont ITcubxparen (setCurrentPos# buf 2#)
+    '#'# -> case lookAhead# buf 1# of
+		')'#  | flag glaexts -> cont ITcubxparen (setCurrentPos# buf 2#)
 		'-'# -> case lookAhead# buf 2# of
 			   '}'# -> cont ITclose_prag (setCurrentPos# buf 3#)
 			   _    -> lex_sym cont (incLexeme buf)
@@ -606,7 +605,7 @@ flag _  = True
 lex_prag cont buf
   = case expandWhile# is_space buf of { buf1 ->
     case expandWhile# is_ident (stepOverLexeme buf1) of { buf2 -> 
-    let lexeme = lexemeToFastString buf2 in
+    let lexeme = mkFastString (map toUpper (lexemeToString buf2)) in
     case lookupUFM pragmaKeywordsFM lexeme of
 	Just kw -> cont kw (mergeLexemes buf buf2)
 	Nothing -> panic "lex_prag"