diff --git a/XMonad/Layout/Master.hs b/XMonad/Layout/Master.hs
index dfa16338..2fcce18e 100644
--- a/XMonad/Layout/Master.hs
+++ b/XMonad/Layout/Master.hs
@@ -76,7 +76,7 @@ applyMaster :: (LayoutClass l Window) =>
 applyMaster _ frac wksp rect = do
     let st= S.stack wksp
     let ws = S.integrate' $ st
-    if length ws > 2 then do
+    if length ws > 1 then do
         let m = head ws
         let (mr, sr) = splitHorizontallyBy frac rect
         let nst = st>>= S.filter (m/=)