diff --git a/src/Jobs/Handler/Print.hs b/src/Jobs/Handler/Print.hs
index cb16a2907..630a946eb 100644
--- a/src/Jobs/Handler/Print.hs
+++ b/src/Jobs/Handler/Print.hs
@@ -47,7 +47,7 @@ dispatchJobPrintAck = JobHandlerException act
                             return True
                 _       ->  return False
             procOneId oks Entity{entityKey=paid, entityVal=PrintAcknowledge{printAcknowledgeApcIdent=Text.strip -> apci, printAcknowledgeTimestamp=ackt}} =
-                andM [ackOneId ackt $ ftrans apci | ftrans <- ftransAliases] >>= \case
+                orM [ackOneId ackt $ ftrans apci | ftrans <- ftransAliases] >>= \case
                   True  -> delete paid                                      >> return (succ oks)
                   False -> update paid [PrintAcknowledgeProcessed =. True]  >> return oks
         apcis <- selectList [PrintAcknowledgeProcessed ==. False] [Asc PrintAcknowledgeTimestamp, LimitTo jobPrintAckChunkSize]
diff --git a/src/Utils.hs b/src/Utils.hs
index 2cf4b1495..a40d0ad49 100644
--- a/src/Utils.hs
+++ b/src/Utils.hs
@@ -1161,9 +1161,7 @@ guardMOnM b x = guardM b *> x
 -- Some Utility Functions from Agda.Utils.Monad
 -- | Monadic if-then-else.
 ifM :: Monad m => m Bool -> m a -> m a -> m a
-ifM c m m' =
-    do  b <- c
-        if b then m else m'
+ifM c x y = c >>= bool y x
 
 -- | @ifNotM mc = ifM (not <$> mc)@  from Agda.Utils.Monad
 ifNotM :: Monad m => m Bool -> m a -> m a -> m a