diff --git a/Data/Time/Parse.hsc b/Data/Time/Parse.hsc
--- a/Data/Time/Parse.hsc
+++ b/Data/Time/Parse.hsc
@@ -89,7 +89,9 @@
               year  <-  (#peek struct tm,tm_year ) p_tm :: IO CInt
               let day = fromGregorian (fromIntegral (year+1900)) (1+fromIntegral month) (fromIntegral mday)
               let tod = TimeOfDay (fromIntegral hour) (fromIntegral min) (fromIntegral sec)
-
+              
+              touchForeignPtr fztf
+              
               return $ Just (LocalTime day tod, last `minusPtr` cs)
 
 type CTm = () -- struct tm
diff --git a/strptime.cabal b/strptime.cabal
--- a/strptime.cabal
+++ b/strptime.cabal
@@ -1,6 +1,6 @@
 Name: strptime
 Category: System, Data, Parsing
-Version: 0.1.3
+Version: 0.1.4
 Cabal-version: >= 1.2
 Build-type: Simple
 Copyright: Eugene Kirpichov
@@ -24,7 +24,7 @@
 Library
   Build-Depends: time, bytestring
   if flag(split-base)
-    Build-depends: base >= 3.0 && < 4.0
+    Build-depends: base >= 3.0 && < 5.0
   else
     Build-depends: base < 3.0
   Exposed-modules: Data.Time.Parse