diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,1 +1,7 @@
 # xml-parser
+
+
+```
+Prelude Text.XMLParser>  parseXML  "<a> hi </a>"                                                                                                           
+Right (Tag [] "a" (Just [TagString " hi "]))  
+```
diff --git a/Text/XMLParser.hs b/Text/XMLParser.hs
--- a/Text/XMLParser.hs
+++ b/Text/XMLParser.hs
@@ -86,11 +86,11 @@
 
 closedTag = do
  (x,a) <- openTag
- let cd = fmap Left cdata
+ let cd = fmap Right cdata'
  let frag = fmap Left fragmentParse
- let text = fmap Right (noneOf "><") 
- y <- manyTill (try cd <|> try frag <|> text) (try $ closeTag x)
- let s = map (either head ( TagString . replaceEntities )) (groupEithers y)
+ let text = fmap Right (noneOf "><" >>= return . (:[]) ) 
+ y <- manyTill ( try cd <|> try frag <|> text) (try $ closeTag x)
+ let s = map (either head ( TagString . replaceEntities . concat )) (groupEithers y)
  return (Tag a x (Just s))
   
 fragmentParse = do
diff --git a/XMLParser.cabal b/XMLParser.cabal
--- a/XMLParser.cabal
+++ b/XMLParser.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.0
+version:             0.1.0.1
 
 -- A short (one-line) description of the package.
 synopsis:            A library to parse xml