diff --git a/XMonad/Layout/Renamed.hs b/XMonad/Layout/Renamed.hs
index 002a7254..bfabc0e3 100644
--- a/XMonad/Layout/Renamed.hs
+++ b/XMonad/Layout/Renamed.hs
@@ -50,7 +50,7 @@ data Rename a = CutLeft Int -- ^ Remove a number of characters from the left
                                    -- if necessary
               | PrependWords String -- ^ Add a string to the left, appending a space to it if
                                     -- necessary
-              | Replace String -- ^ Repace with another wtring
+              | Replace String -- ^ Replace with another string
               | Chain [Rename a] -- ^ Apply a list of modifications in left-to-right order
   deriving (Show, Read, Eq)
 
@@ -68,4 +68,4 @@ apply (PrependWords s') s = unwords $ s' : words s
 apply (Chain rs) s = ($s) $ foldr (flip (.)) id $ map apply rs
 
 instance LayoutModifier Rename a where
-    modifyDescription r l = apply r (description l)
\ No newline at end of file
+    modifyDescription r l = apply r (description l)