diff --git a/XMonad/Util/TreeZipper.hs b/XMonad/Util/TreeZipper.hs
index f5077784..e49a32e5 100644
--- a/XMonad/Util/TreeZipper.hs
+++ b/XMonad/Util/TreeZipper.hs
@@ -97,7 +97,7 @@ rootNode z = maybe z rootNode $ parent z
 parent :: TreeZipper a -> Maybe (TreeZipper a)
 parent t = case tz_parents t of
     (xs,a,ys) : ps -> Just
-        TreeZipper { tz_current  = Node a (tz_before t ++ tz_current t : tz_after t)
+        TreeZipper { tz_current  = Node a (reverse (tz_before t) ++ tz_current t : tz_after t)
                    , tz_before   = xs
                    , tz_after    = ys
                    , tz_parents  = ps