diff --git a/ghc/compiler/rename/RnExpr.lhs b/ghc/compiler/rename/RnExpr.lhs
index e8e3f4fcec23b7b48213cd168a65b1c49e67855a..c4ddc279ba995f92d146f5503f9d132155157903 100644
--- a/ghc/compiler/rename/RnExpr.lhs
+++ b/ghc/compiler/rename/RnExpr.lhs
@@ -911,7 +911,7 @@ doStmtListErr do_or_lc e
 			other   -> "do"
 
 #ifdef GHCI 
-checkTH e what = returnRn ()	-- OK
+checkTH e what = returnM ()	-- OK
 #else
 checkTH e what 	-- Raise an error in a stage-1 compiler
   = addErr (vcat [ptext SLIT("Template Haskell") <+> text what <+>