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.2
+Version: 1.2.2
 License: BSD3
 License-file: LICENSE
 Copyright: Jan Bracker, 2006-2010
@@ -28,8 +28,8 @@
   Build-depends: base >= 3 && < 5
                , old-locale
                , time, mtl
-               , diagrams-core >= 0.7 && < 1.2
-               , diagrams-lib >= 0.7 && < 1.2
+               , diagrams-core >= 1.1 && < 1.2
+               , diagrams-lib >= 1.1 && < 1.2
                , diagrams-svg >= 0.8 && < 1.2
                , diagrams-postscript >= 0.7 && < 1.2
                , SVGFonts >= 1.4 && < 1.5
@@ -39,7 +39,7 @@
                , operational >= 0.2.2 && < 0.3
                , containers >= 0.4 && < 0.6
                , data-default-class < 0.1
-               , lens >= 3.9 && < 3.11
+               , lens >= 3.9 && < 4.2
                , Chart >= 1.2 && < 1.3
                , text
   other-modules: Paths_Chart_diagrams
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
@@ -61,8 +61,8 @@
   ( Diagram
   , R2, P2, T2
   , r2, p2, unr2, unp2
+  , rad, (@@)
   , Trail(..), Segment
-  , Rad(..), CircleFrac(..)
   , (.+^), (<->), (~~)
   )
 import qualified Diagrams.Prelude as D
@@ -735,12 +735,12 @@
 pathToTrail' closeAll (Arc p0 r s e path) _ = 
   let endP = translateP (pointToVec p0) $ rotateP e $ Point r 0
       (t, c, rest) = pathToTrail' closeAll path endP
-      arcTrail = D2.scale r $ D2.arc (Rad s) (Rad e)
+      arcTrail = D2.scale r $ D2.arc (s @@ rad) (e @@ rad)
   in ( arcTrail <> t, c || closeAll, rest )
 pathToTrail' closeAll (ArcNeg p0 r s e path) _ = 
   let endP = translateP (pointToVec p0) $ rotateP e $ Point r 0
       (t, c, rest) = pathToTrail' closeAll path endP
-      arcTrail = D2.scale r $ D2.arcCW (Rad s) (Rad e)
+      arcTrail = D2.scale r $ D2.arcCW (s @@ rad) (e @@ rad)
   in ( arcTrail <> t, c || closeAll, rest )
 pathToTrail' closeAll End _ = (mempty, False || closeAll, Nothing)
 pathToTrail' closeAll Close _ = (mempty, True || closeAll, Nothing)