diff --git a/src/Handler/Utils/LMS.hs b/src/Handler/Utils/LMS.hs
index 05c410486..a444e6f68 100644
--- a/src/Handler/Utils/LMS.hs
+++ b/src/Handler/Utils/LMS.hs
@@ -113,7 +113,7 @@ lmsDeletionDate = do
 lmsUserToDeleteExpr :: Day -> E.SqlExpr (Entity LmsUser) -> E.SqlExpr (E.Value Bool)
 lmsUserToDeleteExpr cutoff lmslist = E.isNothing (lmslist E.^. LmsUserEnded) 
   E.&&. E.not_ (E.isNothing $ lmslist E.^. LmsUserStatus)
-  E.&&. E.explicitUnsafeCoerceSqlExprValue "timestamp" ((lmslist E.^. LmsUserStatus) E.#>>. "{day}") E.<. E.val cutoff
+  E.&&. E.explicitUnsafeCoerceSqlExprValue "timestamp" ((lmslist E.^. LmsUserStatus) E.#>>. "{day}") E.<=. E.val cutoff
   
 -- | Is everything since cutoff day or before?
 lmsUserToDelete :: Day -> LmsUser -> Bool
@@ -179,4 +179,4 @@ lmsUserStatusWidget LmsUser{lmsUserStarted} =
   [whamlet|$newline never
     ^{formatTimeW SelFormatDate lmsUserStarted} 
     \ ^{icon IconWaitingForUser}
-  |]
\ No newline at end of file
+  |]