diff --git a/Libraries/iTasks/Internal/EngineTasks.icl b/Libraries/iTasks/Internal/EngineTasks.icl
index 6e87d3dc92e9987a3f15728dfe22ad3ec8ab7eba..d821144bb47e118f86d7b189dc829bf459bccaaa 100644
--- a/Libraries/iTasks/Internal/EngineTasks.icl
+++ b/Libraries/iTasks/Internal/EngineTasks.icl
@@ -34,8 +34,8 @@ timeout mt iworld = case read taskEvents EmptyContext iworld of
 	(Error _,iworld)            = (Just 500,iworld) //Keep retrying, but not too fast
 where
 	lesser (Just x) (Just y) = x < y
-	lesser (Just _) Nothing = True
-	lesser Nothing Nothing = False
+	lesser (Just _) Nothing  = True
+	lesser _        _        = False
 
 	getTimeoutFromClock :: Timespec (Map SDSNotifyRequest Timespec) -> [Maybe Timeout]
 	getTimeoutFromClock now requests = getTimeoutFromClock` <$> 'DM'.toList requests