@@ -250,7 +250,7 @@ blockToRST (Header level (name,classes,_) inlines) = do
250250 let headerChar = if level > 5 then ' ' else "=-~^'" !! (level - 1)
251251 let border = text $ replicate (offset contents) headerChar
252252 let anchor | null name || name == autoId = empty
253− | otherwise = ".. " <> text name <> ":" $$ blankline
253+ | otherwise = ".. _" <> text name <> ":" $$ blankline
254254 return $ nowrap $ anchor $$ contents $$ border $$ blankline
255255 else do
256256 let rub = "rubric:: " <> contents