1 files changed, 1 insertions, 1 deletions
diff --git a/XUtil.hsc b/XUtil.hsc
index fc0e7b9..0ea39a8 100644
--- a/XUtil.hsc
+++ b/XUtil.hsc
@@ -164,7 +164,7 @@ printString dpy drw fs@(Xft font) gc fc bc x y s = do
   let screen   = defaultScreenOfDisplay dpy
       colormap = defaultColormapOfScreen screen
       visual   = defaultVisualOfScreen screen
-  withColors d [bc] $ \[bcolor] -> do
+  withColors dpy [bc] $ \[bcolor] -> do
     (a,d)  <- textExtents fs s
     gi     <- xftTextExtents dpy font s
     setForeground dpy gc bcolor