diff --git a/Text/Feed/Constructor.hs b/Text/Feed/Constructor.hs
index dd57d17..d12a663 100644
--- a/Text/Feed/Constructor.hs
+++ b/Text/Feed/Constructor.hs
@@ -134,7 +134,9 @@ withFeedItems is fe =
       Feed.Types.RSSFeed  f -> Feed.Types.RSSFeed
           f{rssChannel=(rssChannel f){rssItems=[]}}
       Feed.Types.RSS1Feed f -> Feed.Types.RSS1Feed
-          f{feedItems=[]})
+          f{feedItems=[]}
+      Feed.Types.XMLFeed xml -> Feed.Types.XMLFeed
+          xml{elContent=[]})
    is
 
 newItem :: FeedKind -> Feed.Types.Item
diff --git a/feed.cabal b/feed.cabal
index 06787fa..adba326 100644
--- a/feed.cabal
+++ b/feed.cabal
@@ -46,6 +46,5 @@ library
                      old-locale >= 1,
                      old-time   >= 1,
                      xml >= 1.2.6,
-                     utf8-string,
+                     utf8-string == 0.3,
                      time
-