diff --git a/Text/HTML/SanitizeXSS.hs b/Text/HTML/SanitizeXSS.hs
index 530e09d..0314258 100644
--- a/Text/HTML/SanitizeXSS.hs
+++ b/Text/HTML/SanitizeXSS.hs
@@ -28,7 +28,7 @@ sanitizeXSS = renderTagsOptions renderOptions {
     safeTags m (t@(TagClose name):tags)
         | safeTagName name =
             case Map.lookup name m of
-                Nothing -> safeTags m tags
+                Nothing -> TagOpen name [] : TagClose name : safeTags m tags
                 Just i ->
                     let m' = if i == 1
                                 then Map.delete name m
diff --git a/test.hs b/test.hs
index 80d603e..106a651 100644
--- a/test.hs
+++ b/test.hs
@@ -3,6 +3,6 @@ import Text.HTML.SanitizeXSS
 main = do
   let test = " <a href='http://safe.com'>safe</a><a href='unsafe://hack.com'>anchor</a> <img src='evil://evil.com' /> <unsafe></foo> <bar /> <br></br> <b>Unbalanced</div><img src='http://safe.com'>"
   let actual = (sanitizeXSS test)
-  let expected = " <a href=\"http://safe.com\">safe</a><a>anchor</a> <img />   <br /> <b>Unbalanced<img src=\"http://safe.com\"></b>"
+  let expected = " <a href=\"http://safe.com\">safe</a><a>anchor</a> <img />   <br /> <b>Unbalanced<div></div><img src=\"http://safe.com\"></b>"
   putStrLn $ "testing: " ++ test
   putStrLn $ if actual == expected then "pass" else "failure\n" ++ "\nexpected:" ++ (show expected) ++ "\nactual:  " ++ (show actual)