3 files changed, 7 insertions, 6 deletions
diff --git a/testsuite/tests/ghci.debugger/mdo.hs b/testsuite/tests/ghci.debugger/mdo.hs
index 761c056658..bc5d8dd9ea 100644
--- a/testsuite/tests/ghci.debugger/mdo.hs
+++ b/testsuite/tests/ghci.debugger/mdo.hs
@@ -1,5 +1,6 @@
 import Control.Monad.Fix
 import Data.IORef
+import Prelude hiding (traverse)
 
 data N a = N (IORef Bool, N a, a, N a)
 
@@ -34,4 +35,4 @@ l2dll' :: N a -> [a] -> IO (N a, N a)
 l2dll' p []     = return (p, p)
 l2dll' p (x:xs) = mdo c      <- newNode p x f
                       (f, l) <- l2dll' c xs
-                      return (c, l)
-\ No newline at end of file
+                      return (c, l)
diff --git a/testsuite/tests/ghci.debugger/scripts/break018.stdout b/testsuite/tests/ghci.debugger/scripts/break018.stdout
index a495e7903a..a12e119a42 100644
--- a/testsuite/tests/ghci.debugger/scripts/break018.stdout
+++ b/testsuite/tests/ghci.debugger/scripts/break018.stdout
@@ -1,13 +1,13 @@
-Stopped at ../mdo.hs:(29,1)-(31,27)
+Stopped at ../mdo.hs:(30,1)-(32,27)
 _result :: IO (N a) = _
-Stopped at ../mdo.hs:(29,16)-(31,27)
+Stopped at ../mdo.hs:(30,16)-(32,27)
 _result :: IO (N Char) = _
 x :: Char = 'h'
 xs :: [Char] = _
-Stopped at ../mdo.hs:29:30-42
+Stopped at ../mdo.hs:30:30-42
 _result :: IO (N Char) = _
 f :: N Char = _
 l :: N Char = _
 x :: Char = 'h'
-Stopped at ../mdo.hs:(7,1)-(8,42)
+Stopped at ../mdo.hs:(8,1)-(9,42)
 _result :: IO (N a) = _
diff --git a/testsuite/tests/ghci.debugger/scripts/dynbrk004.stdout b/testsuite/tests/ghci.debugger/scripts/dynbrk004.stdout
index ed7fb990a4..dfdfc45a6b 100644
--- a/testsuite/tests/ghci.debugger/scripts/dynbrk004.stdout
+++ b/testsuite/tests/ghci.debugger/scripts/dynbrk004.stdout
@@ -1,4 +1,4 @@
 Breakpoint 0 activated at ../mdo.hs:13:16-30
 Breakpoint 1 activated at ../mdo.hs:12:16-30
 Breakpoint 2 activated at ../mdo.hs:11:16-30
-Breakpoint 3 activated at ../mdo.hs:14:10-18
+Breakpoint 3 activated at ../mdo.hs:14:16-30