diff --git a/Data/Time/Parse.hsc b/Data/Time/Parse.hsc
--- a/Data/Time/Parse.hsc
+++ b/Data/Time/Parse.hsc
@@ -34,7 +34,7 @@
 
 -- | The class of values from which time may be parsed
 class Strptime a where
-    -- | Given a format string in the format of C's strptime (see <http://linux.die.net/man/3/strptime>) 
+    -- | Given a format string in the format of C's strptime (see <http://linux.die.net/man/3/strptime>)
     -- and a data string, parse a date+time value from the data string and also return the remainder
     -- of the data string.
     strptime  :: a -> a -> Maybe (LocalTime, a)
@@ -43,18 +43,18 @@
     strptime f = \s -> do
         (t, n) <- ff s
         return (t, drop n s)
-      where ff = strptime_ f  
+      where ff = strptime_ f
 instance Strptime L.ByteString where
     strptime f = \s -> do
         (t, n) <- ff s
         return (t, L.drop (fromIntegral n) s)
-      where ff = strptime_ f  
+      where ff = strptime_ f
 
 instance Strptime S.ByteString where
     strptime f = \s -> do
         (t, n) <- ff s
         return (t, S.drop (fromIntegral n) s)
-      where ff = strptime_ f  
+      where ff = strptime_ f
 
 class Strptime_ a where
     strptime_ :: a -> a -> Maybe (LocalTime, Int)
@@ -78,7 +78,7 @@
       return $ \s -> unsafePerformIO $ S.useAsCString s $ \cs -> do
         allocaBytes (#const sizeof(struct tm)) $ \p_tm -> do
           last <- strptime_c cs (castPtr ztf) p_tm
-          if last == nullPtr 
+          if last == nullPtr
             then return Nothing
             else do
               sec   <-  (#peek struct tm,tm_sec  ) p_tm :: IO CInt
@@ -87,9 +87,9 @@
               mday  <-  (#peek struct tm,tm_mday ) p_tm :: IO CInt
               month <-  (#peek struct tm,tm_mon  ) p_tm :: IO CInt
               year  <-  (#peek struct tm,tm_year ) p_tm :: IO CInt
-              let day = fromGregorian (fromIntegral (year+1900)) (fromIntegral month) (fromIntegral mday)
+              let day = fromGregorian (fromIntegral (year+1900)) (1+fromIntegral month) (fromIntegral mday)
               let tod = TimeOfDay (fromIntegral hour) (fromIntegral min) (fromIntegral sec)
-              
+
               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.2
+Version: 0.1.3
 Cabal-version: >= 1.2
 Build-type: Simple
 Copyright: Eugene Kirpichov