diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,17 @@
+0.3.3.7
+	* Fixed both the
+
+            Prelude Data.Scientific> reads "0.0" :: [(Data.Scientific.Scientific,String)]
+            [(0.0,".0"),(0.0,"")]
+
+          problem and the
+
+            read " 8" :: Scientific fails, while read " 8" :: Double succeeds
+
+	  problem.
+
+	  Courtesy of neongreen.
+
 0.3.3.6
 	* Fixed bug in the x / y method for Scientific. Since I was using
 	  the default implementation: `x * recip y` the operation would
diff --git a/scientific.cabal b/scientific.cabal
--- a/scientific.cabal
+++ b/scientific.cabal
@@ -1,5 +1,5 @@
 name:                scientific
-version:             0.3.3.6
+version:             0.3.3.7
 synopsis:            Numbers represented using scientific notation
 description:
   @Data.Scientific@ provides a space efficient and arbitrary precision
diff --git a/src/Data/Scientific.hs b/src/Data/Scientific.hs
--- a/src/Data/Scientific.hs
+++ b/src/Data/Scientific.hs
@@ -95,7 +95,8 @@
 import           Data.Typeable                (Typeable)
 import           Math.NumberTheory.Logarithms (integerLog10')
 import qualified Numeric                      (floatToDigits)
-import           Text.Read                    (readPrec)
+import qualified Text.Read                       as Read
+import           Text.Read                        (readPrec)
 import qualified Text.ParserCombinators.ReadPrec as ReadPrec
 import qualified Text.ParserCombinators.ReadP    as ReadP
 import           Text.ParserCombinators.ReadP     ( ReadP )
@@ -562,7 +563,7 @@
 ----------------------------------------------------------------------
 
 instance Read Scientific where
-    readPrec = ReadPrec.lift scientificP
+    readPrec = Read.parens $ ReadPrec.lift (ReadP.skipSpaces >> scientificP)
 
 -- A strict pair
 data SP = SP !Integer {-# UNPACK #-}!Int
@@ -583,7 +584,7 @@
                                  SP (step a digit) (e-1)) s
 
   SP coeff expnt <- (ReadP.satisfy (== '.') >> fractional)
-                      `mplus` return s
+                    ReadP.<++ return s
 
   let signedCoeff | pos       =   coeff
                   | otherwise = (-coeff)
diff --git a/test/test.hs b/test/test.hs
--- a/test/test.hs
+++ b/test/test.hs
@@ -44,9 +44,12 @@
             s /= 0 QC.==> abs (Scientific.coefficient s) `mod` 10 /= 0)
 
   , testGroup "Parsing"
-    [ testCase "reads \"\""     $ testReads ""     []
-    , testCase "reads \"1.\""   $ testReads "1."   [(1.0, ".")]
-    , testCase "reads \"1.2e\"" $ testReads "1.2e" [(1.0, ".2e"), (1.2, "e")]
+    [ testCase "reads \"\""        $ testReads ""        []
+    , testCase "reads \"1.\""      $ testReads "1."      [(1.0, ".")]
+    , testCase "reads \"1.2e\""    $ testReads "1.2e"    [(1.2, "e")]
+    , testCase "reads \"(1.3 )\""  $ testReads "(1.3 )"  [(1.3, "")]
+    , testCase "reads \"((1.3))\"" $ testReads "((1.3))" [(1.3, "")]
+    , testCase "reads \" 1.3\""    $ testReads " 1.3"    [(1.3, "")]
     ]
 
   , testGroup "Formatting"