diff --git a/testsuite/tests/ghc-regress/dph/words/WordsVect.hs b/testsuite/tests/ghc-regress/dph/words/WordsVect.hs
index 43880fd56371e0b2116a98b21bd64c48fe7b47a1..abf416e763104d29ca479bd9cf290ee885977cd9 100644
--- a/testsuite/tests/ghc-regress/dph/words/WordsVect.hs
+++ b/testsuite/tests/ghc-regress/dph/words/WordsVect.hs
@@ -71,8 +71,8 @@ stateOfString str
 	 | len == 1	= stateOfChar (str !: 0)
 	 | otherwise	
 	 =  let	half	= len `div` 2
-		s1	= sliceP 0    half str
-		s2	= sliceP half len  str
+		s1	= sliceP 0    half       str
+		s2	= sliceP half (len-half) str
 	    in	plusState (stateOfString s1) (stateOfString s2)
     in	result
 
diff --git a/testsuite/tests/ghc-regress/dph/words/dph-words.T b/testsuite/tests/ghc-regress/dph/words/dph-words.T
index 9d40d1d7b83764b71b73f417744cb3995d019400..c89d01b08eea3071f2971bf7a3a18b43ae6f2bc7 100644
--- a/testsuite/tests/ghc-regress/dph/words/dph-words.T
+++ b/testsuite/tests/ghc-regress/dph/words/dph-words.T
@@ -7,13 +7,12 @@ test    ('dph-words-opt'
           , only_ways(['normal']) ] 
         , multimod_compile_and_run 
         , [ 'Main'
-          , '-Odph -fdph-par'])
+          , '-Odph -fdph-par -fno-liberate-case'])
 
 
 test    ('dph-words-fast' 
         , [ reqlib('dph-par')
           , reqlib('dph-prim-par')
-          , expect_broken(5065)
           , only_ways(['normal']) ] 
         , multimod_compile_and_run 
         , [ 'Main'