1 files changed, 2 insertions, 2 deletions
diff --git a/CycleWS.hs b/CycleWS.hs
index a3b9f19..3a95ab4 100644
--- a/CycleWS.hs
+++ b/CycleWS.hs
@@ -36,8 +36,8 @@ import Data.List
 -- >     , ((modMask              , xK_period), nextWS ) 
 
 nextWS, prevWS :: X ()
-nextWS = withWindowSet $ \s -> view (workspaces !! (setWS s N))
-prevWS = withWindowSet $ \s -> view (workspaces !! (setWS s P))
+nextWS = withWindowSet $ \s -> windows $ W.view (workspaces !! (setWS s N))
+prevWS = withWindowSet $ \s -> windows $ W.view (workspaces !! (setWS s P))
 
 data Dir = P | N deriving Eq
 setWS :: WindowSet -> Dir -> Int