diff --git a/Text/XML/Light/Lexer.hs b/Text/XML/Light/Lexer.hs
--- a/Text/XML/Light/Lexer.hs
+++ b/Text/XML/Light/Lexer.hs
@@ -139,7 +139,7 @@
 
 tag              :: LString -> [Token]
 tag ((p,'/') : cs)    = let (n,ds) = qualName (dropSpace cs)
-                        in TokEnd p n : case ds of
+                        in TokEnd p n : case (dropSpace ds) of
                                           (_,'>') : es -> tokens' es
                                           -- tag was not properly closed...
                                           _        -> tokens' ds
diff --git a/Text/XML/Light/Output.hs b/Text/XML/Light/Output.hs
--- a/Text/XML/Light/Output.hs
+++ b/Text/XML/Light/Output.hs
@@ -36,7 +36,7 @@
   , prettify      :: Bool
   }
 
--- | Default pretty orinting configutaion.
+-- | Default pretty orinting configuration.
 --  * Always use abbreviate empty tags.
 defaultConfigPP :: ConfigPP
 defaultConfigPP = ConfigPP { shortEmptyTag = const True
diff --git a/xml.cabal b/xml.cabal
--- a/xml.cabal
+++ b/xml.cabal
@@ -1,5 +1,5 @@
 Name:            xml
-Version:         1.3.13
+Version:         1.3.14
 Homepage:        http://code.galois.com
 Synopsis:        A simple XML library.
 Description:     A simple XML library.