diff --git a/ghc/tests/reader/should_compile/read023.hs b/ghc/tests/reader/should_compile/read023.hs
index dfcfd1e8b2bc0f72154de49f1f38cf96c63a4727..d43370fce01516f6cc2a25c0587556975ffe3f3c 100644
--- a/ghc/tests/reader/should_compile/read023.hs
+++ b/ghc/tests/reader/should_compile/read023.hs
@@ -1,9 +1,12 @@
 module ShouldCompile where
 
 -- M.<keyword> isn't a qualified identifier
-f = Just.let x=id in x
+f  = Just.let x=id in x
+f' = Just.\1 where (.\) = ($)
 
 -- M.{as,hiding,qualified} *are* qualified identifiers
-g = ShouldCompile.as
+g  = ShouldCompile.as
+g' = (ShouldCompile.!)
 
 as x = x
+(!) x = x