diff --git a/reanimate-svg.cabal b/reanimate-svg.cabal
--- a/reanimate-svg.cabal
+++ b/reanimate-svg.cabal
@@ -1,5 +1,5 @@
 name:                reanimate-svg
-version:             0.9.5.0
+version:             0.9.6.0
 synopsis:            SVG file loader and serializer
 description:
   reanimate-svg provides types representing a SVG document,
diff --git a/src/Graphics/SvgTree/Misc.hs b/src/Graphics/SvgTree/Misc.hs
--- a/src/Graphics/SvgTree/Misc.hs
+++ b/src/Graphics/SvgTree/Misc.hs
@@ -10,7 +10,7 @@
 precision = 6
 
 ppD :: Double -> String
-ppD c = T.unpack $ T.take (precision+2) $ toShortest c
+ppD c = T.unpack $ T.dropWhileEnd (\c -> c == '.' || c == ' ') $ toFixed precision c
 
 ppF :: Float -> String
 ppF = ppD . realToFrac