diff --git a/src/Xanthous/Entities/Environment.hs b/src/Xanthous/Entities/Environment.hs
index 4f70d9025..46416d1da 100644
--- a/src/Xanthous/Entities/Environment.hs
+++ b/src/Xanthous/Entities/Environment.hs
@@ -88,7 +88,8 @@ instance Brain Door where step = brainVia Brainless
 
 instance Entity Door where
   blocksVision = not . view open
-  description _ = "a door"
+  description door | door ^. open = "an open door"
+                   | otherwise    = "a closed door"
   entityChar _ = "d"
 
 -- | A closed, unlocked door