diff --git a/Chart-diagrams.cabal b/Chart-diagrams.cabal
--- a/Chart-diagrams.cabal
+++ b/Chart-diagrams.cabal
@@ -1,5 +1,5 @@
 Name: Chart-diagrams
-Version: 1.9.1
+Version: 1.9.2
 License: BSD3
 License-file: LICENSE
 Copyright: Jan Bracker, 2006-2014
@@ -32,13 +32,13 @@
                , diagrams-lib >= 1.2 && < 1.5
                , diagrams-svg >= 1.4 && < 1.5
                , diagrams-postscript >= 0.7 && < 1.5
-               , SVGFonts >= 1.4 && < 1.7
+               , SVGFonts >= 1.4 && < 1.8
                , colour >= 2.2.1 && < 2.4
                , blaze-markup >= 0.7 && < 0.9
                , svg-builder >= 0.1 && < 0.2
                , bytestring >= 0.9 && < 1.0
                , operational >= 0.2.2 && < 0.3
-               , containers >= 0.4 && < 0.6
+               , containers >= 0.4 && < 0.7
                , data-default-class < 0.2
                , lens >= 3.9 && < 4.18
                , Chart >= 1.9 && < 1.10
diff --git a/Graphics/Rendering/Chart/Backend/Diagrams.hs b/Graphics/Rendering/Chart/Backend/Diagrams.hs
--- a/Graphics/Rendering/Chart/Backend/Diagrams.hs
+++ b/Graphics/Rendering/Chart/Backend/Diagrams.hs
@@ -2,6 +2,7 @@
 {-# LANGUAGE GADTs #-}
 {-# LANGUAGE TemplateHaskell #-}
 {-# LANGUAGE ScopedTypeVariables #-}
+{-# LANGUAGE CPP #-}
 
 -- | The backend to render charts with the diagrams library.
 module Graphics.Rendering.Chart.Backend.Diagrams
@@ -80,6 +81,8 @@
 
 import Paths_Chart_diagrams ( getDataFileName )
 
+import System.IO.Unsafe (unsafePerformIO)
+
 -- -----------------------------------------------------------------------
 -- General purpose file output function
 -- -----------------------------------------------------------------------
@@ -568,11 +571,19 @@
       , F.textHeight = scaledH -- _font_size fs
       }
 
+{-# DEPRECATED fontFromName "This function will be removed in the next release" #-}
+
+#if MIN_VERSION_SVGFonts(1,7,0)
+getPreparedFont  = unsafePerformIO
+#else
+getPreparedFont = id
+#endif
+
 fontFromName :: (Read n, RealFloat n) => String -> F.PreparedFont n
 fontFromName name = case name of
-  "serif" -> F.lin
-  "monospace" -> F.bit
-  _ -> F.lin
+  "serif" -> getPreparedFont F.lin
+  "monospace" -> getPreparedFont F.bit
+  _ -> getPreparedFont F.lin
 
 -- | Convert line caps.
 convertLineCap :: LineCap -> D.LineCap