diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -2,6 +2,12 @@
 
 #### Upcoming
 
+#### v0.4.0.1
+
+*Revisions*
+
+* Fixed grammar for the `currentStageMessages`. ([#83](https://github.com/hjwylde/werewolf/issues/83))
+
 #### v0.4.0.0
 
 *Major*
diff --git a/src/Game/Werewolf/Response.hs b/src/Game/Werewolf/Response.hs
--- a/src/Game/Werewolf/Response.hs
+++ b/src/Game/Werewolf/Response.hs
@@ -221,10 +221,17 @@
 currentStageMessages to GameOver    = [gameIsOverMessage to]
 currentStageMessages _ Sunrise      = []
 currentStageMessages _ Sunset       = []
-    -- TODO (hjw): pluralise this correctly for the Seer
 currentStageMessages to turn        = [privateMessage to $ T.concat [
-    "It's currently the ", T.pack $ show turn, "' turn."
+    "It's currently the ", showTurn turn, " turn."
     ]]
+    where
+        showTurn :: Stage -> Text
+        showTurn GameOver       = undefined
+        showTurn SeersTurn      = "Seer's"
+        showTurn Sunrise        = undefined
+        showTurn Sunset         = undefined
+        showTurn VillagesTurn   = "Village's"
+        showTurn WerewolvesTurn = "Werewolves'"
 
 rolesInGameMessage :: Maybe Text -> [Role] -> Message
 rolesInGameMessage mTo roles = Message mTo $ T.concat [
diff --git a/werewolf.cabal b/werewolf.cabal
--- a/werewolf.cabal
+++ b/werewolf.cabal
@@ -1,5 +1,5 @@
 name:           werewolf
-version:        0.4.0.0
+version:        0.4.0.1
 
 author:         Henry J. Wylde
 maintainer:     public@hjwylde.com