diff --git a/readcsv.cabal b/readcsv.cabal
--- a/readcsv.cabal
+++ b/readcsv.cabal
@@ -1,5 +1,5 @@
 name:                readcsv
-version:             0.1
+version:             0.1.1
 synopsis: Lightweight CSV parser/emitter based on ReadP
 description: Parses and emits tables of strings formatted according to RFC 4180,
              /"The common Format and MIME Type for Comma-Separated Values (CSV) Files"/.
diff --git a/src/Text/Read/CSV.hs b/src/Text/Read/CSV.hs
--- a/src/Text/Read/CSV.hs
+++ b/src/Text/Read/CSV.hs
@@ -22,6 +22,14 @@
 import Data.List
 import Data.Maybe
 
+munchSpaces :: ReadP ()
+munchSpaces =
+    do  s <- look
+        skip s
+    where
+        skip (' ':s) = get >> skip s
+        skip _       = return ()
+
 unescaped :: ReadP String
 unescaped = munch (`notElem` ",\"\r\n\t")
 
@@ -39,7 +47,7 @@
 fullquoted = fmap (intercalate "\"") (many1 singlequoted)
 
 csvcell :: ReadP String
-csvcell = skipSpaces >> (unescaped +++ fullquoted)
+csvcell = munchSpaces >> (unescaped +++ fullquoted)
 
 csvrow :: ReadP [String]
 csvrow = sepBy1 csvcell (char ',')