diff --git a/changelog.d/5-internal/fix-flaky-spar-test b/changelog.d/5-internal/fix-flaky-spar-test
new file mode 100644
index 00000000000..9b1e0496953
--- /dev/null
+++ b/changelog.d/5-internal/fix-flaky-spar-test
@@ -0,0 +1 @@
+Fix for flaky test in spar
diff --git a/services/spar/test-integration/Test/Spar/APISpec.hs b/services/spar/test-integration/Test/Spar/APISpec.hs
index 1103a4ce245..a237c2032c5 100644
--- a/services/spar/test-integration/Test/Spar/APISpec.hs
+++ b/services/spar/test-integration/Test/Spar/APISpec.hs
@@ -23,6 +23,7 @@ module Test.Spar.APISpec
 where
 
 import Bilge
+import Brig.Types.Intra (AccountStatus (Deleted))
 import Brig.Types.User
 import Cassandra hiding (Value)
 import Control.Lens hiding ((.=))
@@ -1184,8 +1185,9 @@ specDeleteCornerCases = describe "delete corner cases" $ do
     deleteViaBrig :: UserId -> TestSpar ()
     deleteViaBrig uid = do
       brig <- view teBrig
-      resp <- (call . delete $ brig . paths ["i", "users", toByteString' uid])
+      resp <- call . delete $ brig . paths ["i", "users", toByteString' uid]
       liftIO $ responseStatus resp `shouldBe` status202
+      void $ aFewTimes (runSpar $ Intra.getStatus uid) (== Deleted)
 
 specScimAndSAML :: SpecWith TestEnv
 specScimAndSAML = do