diff --git a/iteratee-parsec.cabal b/iteratee-parsec.cabal
--- a/iteratee-parsec.cabal
+++ b/iteratee-parsec.cabal
@@ -1,5 +1,5 @@
 Name:                     iteratee-parsec
-Version:                  0.0.1
+Version:                  0.0.2
 Synopsis:                 Package allowing parsec parser initeratee
 Description:              Package providing instances of Stream in
                           IterateeG monad.
diff --git a/src/Text/Parsec/Iteratee/LinkedList.hs b/src/Text/Parsec/Iteratee/LinkedList.hs
--- a/src/Text/Parsec/Iteratee/LinkedList.hs
+++ b/src/Text/Parsec/Iteratee/LinkedList.hs
@@ -177,8 +177,8 @@
 parsecSafe :: Monad m
            => ParsecT s u m a
            -> ParsecT s u m (s, Either ParseError a)
-parsecSafe (ParsecT p) = ParsecT $ \s -> do
-    r <- join (unConsume `liftM` p s)
+parsecSafe p = mkPT $ \s -> do
+    r <- join (unConsume `liftM` (runParsecT p s))
     case r of
       Error pe  -> let rp = Ok (stateInput s,  Left pe) s  (unknownError s)
                   in return $! Empty $ return $! rp