diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+# 0.4.1.1
+* Fix test suite for Stackage.
 # 0.4.1
 * Compatibility release to get cron building with GHC < 7.10 again.
 # 0.4.0
diff --git a/cron.cabal b/cron.cabal
--- a/cron.cabal
+++ b/cron.cabal
@@ -1,5 +1,5 @@
 Name:                cron
-Version:             0.4.1
+Version:             0.4.1.1
 Description:
   Cron data structure and Attoparsec parser. The idea is to embed it in larger
   systems which want to roll their own scheduled tasks in a format that people
diff --git a/test/System/Test/Cron.hs b/test/System/Test/Cron.hs
--- a/test/System/Test/Cron.hs
+++ b/test/System/Test/Cron.hs
@@ -273,8 +273,10 @@
   , localOption (QuickCheckTests 20) $ testProperty "returns the first minute in the future that matches" $ \cs t ->
       case nextMatch cs t of
         Just res ->
-          let Just actual = find (scheduleMatches cs) ((takeWhile (<= res) (nextMinutes t)))
-          in res `sameMinute` actual
+          let mactual = find (scheduleMatches cs) ((takeWhile (<= res) (nextMinutes t)))
+          in case mactual of
+             Just actual -> res `sameMinute` actual
+             Nothing -> counterexample ("Could not find a next minute match for " <> show t <> ", expected " <> show res) False
         Nothing -> property True
   , testProperty "a schedule that produces Just for one t will produce it for any t" $ \cs t1 t2 -> isJust (nextMatch cs t1) ==>
       counterexample ("nextMatch produced Just for " <> show t1 <> " but not " <> show t2) 
@@ -300,7 +302,7 @@
 roundToMinute :: DiffTime -> DiffTime
 roundToMinute n = secondsToDiffTime (nInt - (nInt `mod` 60))
   where
-    nInt = round n
+    nInt = truncate n
 
 
 envSet :: CrontabEntry
diff --git a/test/System/Test/Cron/Parser.hs b/test/System/Test/Cron/Parser.hs
--- a/test/System/Test/Cron/Parser.hs
+++ b/test/System/Test/Cron/Parser.hs
@@ -200,10 +200,9 @@
 
 
 -------------------------------------------------------------------------------
-assertNoParse :: (Eq a, Show a)
-                 => Parser a
-                 -> Text
-                 -> Assertion
+assertNoParse :: Parser a
+              -> Text
+              -> Assertion
 assertNoParse parser txt = isLeft (parseOnly parser txt) @?= True