diff --git a/src/autoTune.ml b/src/autoTune.ml
index 843c977ae2..f59a10ee8a 100644
--- a/src/autoTune.ml
+++ b/src/autoTune.ml
@@ -194,7 +194,7 @@ let reduceThreadAnalyses () =
   let isThreadCreate (desc: LibraryDesc.t) args =
     match desc.special args with
     | LibraryDesc.ThreadCreate _ -> true
-    | _ -> false
+    | _ -> LibraryDesc.Accesses.find_kind desc.accs Spawn args <> []
   in
   let hasThreadCreate = hasFunction isThreadCreate in
   if not @@ hasThreadCreate then (