diff --git a/src/Text/ParserCombinators/UU/CHANGELOG.hs b/src/Text/ParserCombinators/UU/CHANGELOG.hs
--- a/src/Text/ParserCombinators/UU/CHANGELOG.hs
+++ b/src/Text/ParserCombinators/UU/CHANGELOG.hs
@@ -1,4 +1,7 @@
 -- | This module just contains the CHANGELOG
+-- Version 2.5.4.2
+--
+--      * fixed small problem in <?> so it gets its change to do its work
 --
 -- Version 2.5.4.1
 --
diff --git a/src/Text/ParserCombinators/UU/Core.hs b/src/Text/ParserCombinators/UU/Core.hs
--- a/src/Text/ParserCombinators/UU/Core.hs
+++ b/src/Text/ParserCombinators/UU/Core.hs
@@ -252,9 +252,9 @@
 P  _  np  pl pe <?> label 
   = let nnp = case np of
               Nothing -> Nothing
-              Just ((T ph pf  pr)) -> Just(T ( \ k inp -> replaceExpected  ( ph k inp))
-                                             ( \ k inp -> replaceExpected  ( pf k inp))
-                                             ( \ k inp -> replaceExpected  ( pr k inp)))
+              Just ((T ph pf  pr)) -> Just(T ( \ k inp -> replaceExpected (norm  ( ph k inp)))
+                                             ( \ k inp -> replaceExpected (norm  ( pf k inp)))
+                                             ( \ k inp -> replaceExpected (norm  ( pr k inp))))
         replaceExpected (Fail _ c) = (Fail [label] c)
         replaceExpected others     = others
     in P (mkParser nnp  pe) nnp pl pe
diff --git a/uu-parsinglib.cabal b/uu-parsinglib.cabal
--- a/uu-parsinglib.cabal
+++ b/uu-parsinglib.cabal
@@ -1,5 +1,5 @@
 Name:                uu-parsinglib
-Version:             2.5.4.1
+Version:             2.5.4.2
 Build-Type:          Simple
 License:             MIT
 Copyright:           S Doaitse Swierstra