1 files changed, 1 insertions, 1 deletions
diff --git a/XPrompt.hs b/XPrompt.hs
index 99ee2cd..85e673d 100644
--- a/XPrompt.hs
+++ b/XPrompt.hs
@@ -486,7 +486,7 @@ getComplWinDim compl = do
                 Bottom -> (0, (0 + rem_height - actual_height))
 
   let (_,asc,desc,_) = textExtents fs $ head compl
-      yp = fi $ (ht + fi (asc + desc)) `div` 2
+      yp = fi $ (ht + fi (asc - desc)) `div` 2
       xp = (asc + desc) `div` 2
       yy = map fi . take (fi actual_rows) $ [yp,(yp + ht)..]
       xx = take (fi columns) [xp,(xp + max_compl_len)..]