GHCi debugger underlining is in the wrong place

Here's part of the break020 test, in testsuite/tests/ghc-regress/ghci.debugger/scripts:

% export TERM=vt100
% ../../../../../compiler/stage2/ghc-inplace --interactive
GHCi, version 6.7: http://www.haskell.org/ghc/  :? for help
Loading package base ... linking ... done.
Prelude> :l break020.hs
[1 of 2] Compiling Break020b        ( Break020b.hs, interpreted )
[2 of 2] Compiling Main             ( break020.hs, interpreted )
Ok, modules loaded: Break020b, Main.
*Main> :set stop :list
*Main> :step main
Stopped at break020.hs:(9,7)-(17,1)
_result :: IO () = _
8  
9  main = do
          ^^
10    line1 0
11    line2 0
12    in_another_decl 0
13    in_another_module 0
14    line2 1
15    return ()
16    
17    
   ^^
[break020.hs:(9,7)-(17,1)] *Main> :steplocal
Stopped at break020.hs:10:2-8
_result :: IO () = _
9  main = do
10    line1 0
     ^^^^^^^
11    line2 0
[break020.hs:10:2-8] *Main> 

Trac metadata

Trac field	Value
Version	6.7
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	GHCi
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system	Unknown
Architecture	Unknown