diff --git a/Text/Blaze/Truncate.hs b/Text/Blaze/Truncate.hs
--- a/Text/Blaze/Truncate.hs
+++ b/Text/Blaze/Truncate.hs
@@ -1,6 +1,5 @@
 module Text.Blaze.Truncate(truncateHtml) where
 
--- from Blaze 0.4 to 0.5: Html -> Markup; HtmlM -> MarkupM; AddCustomAttribute has an additional first argument
 import Text.Blaze(Markup)
 import Text.Blaze.Internal(MarkupM(..),ChoiceString(..),StaticString(..))
 import Data.Char
@@ -73,7 +72,7 @@
 truncateHtml :: Int    -- ^ The amount of characters (not counting tags) which the truncated text should have at most
              -> Markup   -- ^ The HTML to truncate
              -> Maybe Markup  -- ^ `Just` the truncated HTML or `Nothing` if no truncation occured
-truncateHtml n html = case go n html of Tagged n' html' -> if n' /= n then Just html' else Nothing
+truncateHtml n html = case go n html of Tagged n' html' -> if n' <= 0 then Just html' else Nothing
     where
         go :: Int -> MarkupM b -> Tagged (MarkupM b)
         go i (Parent t open close content) = fmap (Parent t open close) (go i content)
@@ -172,6 +171,5 @@
 truncateChoiceString i str = case splitAt' i str of 
   (str',rst) -> if (empty' rst) || (isSpace $ head' rst)
                then Tagged (i - (length' str')) str'
---                else Tagged (i - (length' str')) str'
                else case dropWhileEnd' (not. isSpace) (dropWhileEnd' isSpace str') of
                  str'' -> Tagged (i - length' str'') str''
diff --git a/blaze-html-truncate.cabal b/blaze-html-truncate.cabal
--- a/blaze-html-truncate.cabal
+++ b/blaze-html-truncate.cabal
@@ -2,7 +2,7 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                blaze-html-truncate
-version:             0.2.0.0
+version:             0.2.0.1
 synopsis:            A truncator for blaze-html
 description:         This package provides a simple function to truncate HTML, preserving tags and preventing cut-off words. 
 homepage:            http://github.com/mruegenberg/blaze-html-truncate