diff --git a/Text/XML/HXT/Extras.hs b/Text/XML/HXT/Extras.hs
--- a/Text/XML/HXT/Extras.hs
+++ b/Text/XML/HXT/Extras.hs
@@ -19,7 +19,8 @@
                      xp21Tuple,
                      xp22Tuple,
                      xp23Tuple,
-                     xp24Tuple
+                     xp24Tuple,
+                     xunpickleString
                    ) where
 
 import Text.XML.HXT.Arrow
@@ -85,3 +86,14 @@
 
 xp24Tuple :: PU a -> PU b -> PU c -> PU d -> PU e -> PU f -> PU g -> PU h -> PU i -> PU j -> PU k -> PU l -> PU m -> PU n -> PU o -> PU p -> PU q -> PU r -> PU s -> PU t -> PU u -> PU v -> PU w -> PU x -> PU (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x)
 xp24Tuple a b c d e f g h i j k l m n o p q r s t u v w x = xpWrap (\((a, b, c, d, e, f), (g, h, i, j, k, l), (m, n, o, p, q, r), (s, t, u, v, w, x)) -> (a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x), \(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x) -> ((a, b, c, d, e, f), (g, h, i, j, k, l), (m, n, o, p, q, r), (s, t, u, v, w, x))) (xp4Tuple (xp6Tuple a b c d e f) (xp6Tuple g h i j k l) (xp6Tuple m n o p q r) (xp6Tuple s t u v w x))
+
+xunpickleString ::
+  PU a
+  -> Attributes
+  -> String
+  -> IOStateArrow s b a
+xunpickleString xp al src =
+  readString al src    
+  >>>
+  xunpickleVal xp
+
diff --git a/hxt-extras.cabal b/hxt-extras.cabal
--- a/hxt-extras.cabal
+++ b/hxt-extras.cabal
@@ -1,5 +1,5 @@
 Name:                hxt-extras
-Version:             0.3
+Version:             0.4
 License:             BSD3
 License-File:        LICENSE
 Synopsis:            Extra functions for HXT
@@ -7,19 +7,19 @@
 Homepage:            http://code.google.com/p/hxt-extras/
 Category:            XML
 Author:              Tony Morris
-Maintainer:          code@tmorris.net
-Copyright:           2009 Tony Morris
+Maintainer:          ʇǝu˙sıɹɹoɯʇ@ןןǝʞsɐɥ
+Copyright:           2010 Tony Morris
 build-type:          Simple
 cabal-version:       >= 1.2
 
 Flag small_base
-  Description:     Choose the new, split-up base package.
+  Description:       Choose the new, split-up base package.
 
 Library
-  if flag(small_base)
-    Build-Depends: base < 4 && >= 3, hxt
-  else
-    Build-Depends: base < 3, hxt
+  Build-Depends:     base < 5 && >= 3,
+                     hxt == 8.5.4
 
-  GHC-Options:     -Wall
-  Exposed-Modules: Text.XML.HXT.Extras
+  GHC-Options:       -Wall
+
+  Exposed-Modules:   Text.XML.HXT.Extras
+