diff --git a/ErrMsg.hs b/ErrMsg.hs
index cc910e2..0433f80 100644
--- a/ErrMsg.hs
+++ b/ErrMsg.hs
@@ -67,7 +67,7 @@ ppMsg spn sev dflag msg = fromMaybe def $ do
 ----------------------------------------------------------------
 
 showMsg :: DynFlags -> SDoc -> String
-showMsg dflag sdoc = map toNull $ showQualifiedPage dflag sdoc
+showMsg dflag sdoc = map toNull $ showUnqualifiedPage dflag sdoc
   where
     toNull '\n' = '\0'
     toNull x = x