diff --git a/src/Bot/Claude.hs b/src/Bot/Claude.hs
index a42bf42..208afc8 100644
--- a/src/Bot/Claude.hs
+++ b/src/Bot/Claude.hs
@@ -68,7 +68,7 @@ invokeClaudeReview prompt = do
   (exitCode, stdout, stderr_) <- readProcessWithExitCode "claude"
     [ "-p", T.unpack prompt
     , "--output-format", "json"
-    , "--max-turns", "1"
+    , "--max-turns", "3"
     , "--tools", ""
     , "--json-schema", reviewJsonSchema
     ] ""
@@ -84,7 +84,7 @@ invokeClaudeReply prompt = do
   (exitCode, stdout, stderr_) <- readProcessWithExitCode "claude"
     [ "-p", T.unpack prompt
     , "--output-format", "json"
-    , "--max-turns", "1"
+    , "--max-turns", "3"
     , "--tools", ""
     ] ""
   case exitCode of