diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 1ad8d5f07d39262bddfdd38533a348c6938bb2fb..f9a6945f79529747b6afdcca79eee49206680ee8 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -753,7 +753,7 @@ gadt_constr :: { LConDecl RdrName }
               { LL (mkGadtDecl $1 $3) } 
         -- Syntax: Maybe merge the record stuff with the single-case above?
         --         (to kill the mostly harmless reduce/reduce error)
-        -- XXX revisit autrijus
+        -- XXX revisit audreyt
 	| constr_stuff_record '::' sigtype
 		{ let (con,details) = unLoc $1 in 
 		  LL (ConDecl con Implicit [] (noLoc []) details (ResTyGADT $3)) }