Tweak #2174, which we now expect to pass again

testsuite/tests/ghc-regress/ghci.debugger/scripts/all.T

 setTestOpts(composes([extra_run_opts('-ignore-dot-ghci'), normalise_slashes]))
 
 test('print001', normal, ghci_script, ['print001.script'])
-test('print002', if_compiler_ge('ghc','6.9', expect_broken(2174)), ghci_script, ['print002.script'])
+test('print002', normal, ghci_script, ['print002.script'])
 test('print003', normal, ghci_script, ['print003.script'])
 test('print004', normal, ghci_script, ['print004.script'])
 test('print005', normal, ghci_script, ['print005.script'])

testsuite/tests/ghc-regress/ghci.debugger/scripts/print002.script

@@ -8,6 +8,9 @@ f
 let i = Just (10::Integer)
 :p i
 
+case i of Just j -> Control.Exception.evaluate j
+:p i
+
 :l ../Test.hs
 
 let s = S1 'a' 'b' 'c'

testsuite/tests/ghc-regress/ghci.debugger/scripts/print002.stdout

 Just 1.2
 f = Just 1.2
+i = Just (_t1::Integer)
+10
 i = Just 10
 'a'
 s = S1 'a' 'b' 'c'