diff --git a/ghc/tests/rename/should_compile/rn029.hs b/ghc/tests/rename/should_compile/rn029.hs
index c6cd70cf1fef777907df0c1b29b0d97232bcd495..354fef5b056bdfa60e8f0975ce3492d98b615c43 100644
--- a/ghc/tests/rename/should_compile/rn029.hs
+++ b/ghc/tests/rename/should_compile/rn029.hs
@@ -1,8 +1,17 @@
--- !!! Checking that lazy name clashing work.
+-- !!! Checking that lazy name clashing works.
 module ShouldSucceed where
 
-import List ( sort )
+import List ( reverse, sort )
+
+sort :: Int	-- Clashes with List.sort, 
+sort = 4	-- but never used, so OK	
+	
+
+reverse :: Int	-- Clashes with List.reverse, 
+reverse = 3	-- but the only uses are qualified
+
+x = ShouldSucceed.reverse
+
+y = List.reverse
 
-ShouldSucceed.sort :: Int
-ShouldSucceed.sort = 3