diff --git a/yesod-auth/Yesod/Auth.hs b/yesod-auth/Yesod/Auth.hs
index 75672053..35eaa6ec 100644
--- a/yesod-auth/Yesod/Auth.hs
+++ b/yesod-auth/Yesod/Auth.hs
@@ -295,9 +295,9 @@ clearCreds :: YesodAuth master
            -> HandlerT master IO ()
 clearCreds doRedirects = do
     y <- getYesod
+    onLogout
     deleteSession credsKey
     when doRedirects $ do
-        onLogout
         redirectUltDest $ logoutDest y
 
 getCheckR :: AuthHandler master TypedContent