diff --git a/dejafu/Test/DejaFu/STM/Internal.hs b/dejafu/Test/DejaFu/STM/Internal.hs
index 3e9cd3e6..c124976f 100755
--- a/dejafu/Test/DejaFu/STM/Internal.hs
+++ b/dejafu/Test/DejaFu/STM/Internal.hs
@@ -151,7 +151,7 @@ doTransaction ma idsource = do
 
       let newIDSource = nidsrc'
           newAct = act'
-          newUndo = undo >> undo'
+          newUndo = undo' >> undo
           newReaden = readen' ++ readen
           newWritten = written' ++ written
           newSofar = tact : sofar