diff --git a/source/HTMLSubs.pas b/source/HTMLSubs.pas
index 8f3c4915..f34f243d 100644
--- a/source/HTMLSubs.pas
+++ b/source/HTMLSubs.pas
@@ -7174,7 +7174,7 @@ function TBlockLI.Draw1(Canvas: TCanvas; const ARect: TRect; IMgr: TIndentManage
         NStr := NStr + '.';
         BkMode := SetBkMode(Canvas.Handle, Transparent);
         TAlign := SetTextAlign(Canvas.Handle, TA_BASELINE);
-        Canvas.TextOut(X - 10 - Canvas.TextWidth(NStr), YB, NStr);
+        Canvas.TextOut(X - 10 - Canvas.TextWidth(NStr), YB + Canvas.Font.Height , NStr);
         SetTextAlign(Canvas.Handle, TAlign);
         SetBkMode(Canvas.Handle, BkMode);
       end