1 files changed, 2 insertions, 2 deletions
diff --git a/XUtil.hsc b/XUtil.hsc
index 4f6fda2..2550acf 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -171,9 +171,9 @@ printString dpy drw fs@(Xft font) gc fc bc x y s = do
     gi     <- xftTextExtents dpy font s
     setForeground dpy gc bcolor
     fillRectangle dpy drw gc (x - fi (xglyphinfo_x gi))
-                             (y - fi a)
+                             (y - fi (a + d))
                              (fi $ xglyphinfo_xOff gi)
-                             (fi $ a + d)
+                             (fi $ 4 + a + d)
     withXftDraw dpy drw visual colormap $
       \draw -> withXftColorName dpy visual colormap fc $
       \color -> xftDrawString draw color font x (y - 2) s