The last fix wasn't a good idea after all...

xmonad.hs

@@ -108,17 +108,10 @@ myStartupHook = do
 isUtility :: Query Bool
 isUtility = isInProperty "_NET_WM_WINDOW_TYPE" "_NET_WM_WINDOW_TYPE_UTILITY"
 
-moveToBottom :: ManageHook
-moveToBottom = doF $ \windowSet@W.StackSet {W.current = screen@W.Screen {W.workspace = ws@W.Workspace {W.stack = windowStack}}} ->
-  let windowStack' = fmap (\(W.Stack f u d) -> W.Stack f (reverse d ++ u) []) windowStack
-  in windowSet { W.current = screen {W.workspace = ws {W.stack = windowStack'}} }
-    
-    
 
 myManageHook :: ManageHook
 myManageHook = composeAll
-               [ moveToBottom
-               , isDialog --> doFloat
+               [ isDialog --> doFloat
                , composeOne
                  [ className =? "Guake.py"   -?> doFloatMaybeFullscreen -- <+> doConfigBorderOff)
                  --, className =? "Do"         -?> (doFloat <+> doConfigBorderOff)