diff --git a/CHANGES.md b/CHANGES.md
index 13e9303bb1..b0ba0686f6 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -68,7 +68,8 @@
 
   * `XMonad.Layout.Named`
 
-    - Deprecated the entire module, use `XMonad.Layout.Renamed` instead.
+    - Deprecated the entire module, use `XMonad.Layout.Renamed` (which newly
+      provides `named` for convenience) instead.
 
   * `XMonad.Actions.SinkAll`
 
diff --git a/XMonad/Layout/Named.hs b/XMonad/Layout/Named.hs
index 9ff20f076c..dabddf14b6 100644
--- a/XMonad/Layout/Named.hs
+++ b/XMonad/Layout/Named.hs
@@ -44,10 +44,6 @@ import XMonad.Layout.Renamed
 -- Note that this module has been deprecated and may be removed in a future
 -- release, please use "XMonad.Layout.Renamed" instead.
 
--- | (Deprecated) Rename a layout.
-named :: String -> l a -> ModifiedLayout Rename l a
-named s = renamed [Replace s]
-
 -- | (Deprecated) Remove the first word of the name.
 nameTail :: l a -> ModifiedLayout Rename l a
 nameTail = renamed [CutWordsLeft 1]
diff --git a/XMonad/Layout/Renamed.hs b/XMonad/Layout/Renamed.hs
index c930840f49..01efdf9d92 100644
--- a/XMonad/Layout/Renamed.hs
+++ b/XMonad/Layout/Renamed.hs
@@ -19,6 +19,7 @@
 module XMonad.Layout.Renamed ( -- * Usage
                                -- $usage
                                renamed
+                             , named
                              , Rename(..) ) where
 
 import XMonad
@@ -40,6 +41,10 @@ import XMonad.Layout.LayoutModifier
 renamed :: [Rename a] -> l a -> ModifiedLayout Rename l a
 renamed = ModifiedLayout . Chain
 
+-- | Rename a layout. (Convenience alias for @renamed [Replace s]@.)
+named :: String -> l a -> ModifiedLayout Rename l a
+named s = renamed [Replace s]
+
 -- | The available renaming operations
 data Rename a = CutLeft Int -- ^ Remove a number of characters from the left
               | CutRight Int -- ^ Remove a number of characters from the right