diff --git a/ParseHtml.hs b/ParseHtml.hs
index 6d21030..6c7594f 100644
--- a/ParseHtml.hs
+++ b/ParseHtml.hs
@@ -47,7 +47,7 @@ getDef t n = renderFullDef (getFullDef t n)
 getFullDef :: T.Text -> Int -> WordFullDef
 getFullDef t n = WordFullDef header defList
   where
-    header = ((parseDefTags . differentDefTags) t !! (n-1))
+    header = ((parseDefTags . differentDefTags) t !! n)
     defList = map (WordDefSentence . renderTags) [parseFullDefTags t]
 
 parseFullDefTags :: T.Text -> [Tag String]