diff --git a/Data/DFrac.hs b/Data/DFrac.hs
--- a/Data/DFrac.hs
+++ b/Data/DFrac.hs
@@ -38,13 +38,13 @@
   readListPrec = readListPrecDefault
   readList = readListDefault
 instance Show DFrac where
-  show (DFrac p r) = show i ++ "." ++ (show f)
+  show (DFrac p r) = show i ++ "." ++ (tail $ show f)
     where
       n = numerator r
       d = denominator r
       i = n `div` d
       f :: Integer
-      f = truncate $ (10^p) * (snd $ properFraction r)
+      f = (10^p) + (truncate $ (10^p) * (snd $ properFraction r))
 
 setPrec :: Int -> DFrac -> DFrac
 setPrec p r = r { places = p }
diff --git a/dfrac.cabal b/dfrac.cabal
--- a/dfrac.cabal
+++ b/dfrac.cabal
@@ -2,7 +2,7 @@
 --  see http://haskell.org/cabal/users-guide/
 
 name:                dfrac
-version:             0.1.1.1
+version:             0.1.1.2
 synopsis:            A package for precise decimal arithmatic using rationals.
 description:            A package for precise decimal arithmatic using rationals.
 license:             MIT