diff --git a/Graphics/Rendering/Cairo/Internal/Utilities.chs b/Graphics/Rendering/Cairo/Internal/Utilities.chs
--- a/Graphics/Rendering/Cairo/Internal/Utilities.chs
+++ b/Graphics/Rendering/Cairo/Internal/Utilities.chs
@@ -25,7 +25,8 @@
 import Codec.Binary.UTF8.String
 import Data.Char (ord, chr)
 import Data.Text (Text)
-import qualified Data.Text.Foreign as T (withCStringLen)
+import Data.ByteString (useAsCString)
+import qualified Data.Text.Encoding as T (encodeUtf8)
 
 {#context lib="cairo" prefix="cairo"#}
 
@@ -40,4 +41,4 @@
     withUTFString = withCAString . encodeString
 
 instance CairoString Text where
-    withUTFString s f = T.withCStringLen s (f . fst)
+    withUTFString s = useAsCString (T.encodeUtf8 s)
diff --git a/cairo.cabal b/cairo.cabal
--- a/cairo.cabal
+++ b/cairo.cabal
@@ -1,5 +1,5 @@
 Name:           cairo
-Version:        0.13.0.3
+Version:        0.13.0.4
 License:        BSD3
 License-file:   COPYRIGHT
 Copyright:      (c) 2001-2010 The Gtk2Hs Team, (c) Paolo Martini 2005, (c) Abraham Egnor 2003, 2004, (c) Aetion Technologies LLC 2004