diff --git a/XMonad/Layout/DragPane.hs b/XMonad/Layout/DragPane.hs
index 6bb099be..e15f5c5a 100644
--- a/XMonad/Layout/DragPane.hs
+++ b/XMonad/Layout/DragPane.hs
@@ -133,4 +133,6 @@ newDragWin r = do
   let mask = Just $ exposureMask .|. buttonPressMask
   w <- createNewWindow r mask handleColor False
   showWindow  w
+  d <- asks display
+  liftIO $ lowerWindow d w
   return      w