diff --git a/XMonad/Layout/TabBarDecoration.hs b/XMonad/Layout/TabBarDecoration.hs
index 0bae9efb..c6819245 100644
--- a/XMonad/Layout/TabBarDecoration.hs
+++ b/XMonad/Layout/TabBarDecoration.hs
@@ -65,7 +65,6 @@ data TabBarDecoration a = TabBar XPPosition deriving (Read, Show)
 
 instance Eq a => DecorationStyle TabBarDecoration a where
     describeDeco  _ = "TabBar"
-    decorateFirst _ = True
     shrink    _ _ r = r
     decorationMouseDragHook _ _ _ = return ()
     pureDecoration (TabBar p) _ dht (Rectangle x y wh ht) s _ (w,_) =
diff --git a/XMonad/Layout/Tabbed.hs b/XMonad/Layout/Tabbed.hs
index 14970654..79ae941e 100644
--- a/XMonad/Layout/Tabbed.hs
+++ b/XMonad/Layout/Tabbed.hs
@@ -90,7 +90,6 @@ data TabbedDecoration a = Tabbed deriving (Read, Show)
 
 instance Eq a => DecorationStyle TabbedDecoration a where
     describeDeco  _ = "Tabbed"
-    decorateFirst _ = True
     decorationMouseDragHook _ _ _ = return ()
     pureDecoration _ _ ht _ s wrs (w,r@(Rectangle x y wh _)) =
             if length wrs' <= 1 then Nothing