diff --git a/bin/twitter.ml b/bin/twitter.ml
index e8eb9e0..706ca9e 100644
--- a/bin/twitter.ml
+++ b/bin/twitter.ml
@@ -152,23 +152,21 @@ let tweet ctx msg =
   in
   click ctx.session_id tweet_button;
   let tweet_area =
-    match find ctx.session_id (XPath "//div[@data-testid='tweetTextarea_0']") with
+    match find ctx.session_id (CSS "div[data-testid='tweetTextarea_0']") with
+    | [] -> raise (Any (fmt "Tweet area not found"))
+    | _ as l ->
+      if List.length l > 1 then raise (Any "Too many tweet areas found") else List.nth l 0
+  in
+  send_keys ctx.session_id tweet_area msg;
+  Unix.sleep 2;
+  let send_tweet_button =
+    match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with
     | [] -> raise (Any (fmt "Tweet button not found"))
     | _ as l ->
       if List.length l > 1
       then raise (Any "Too many tweet button found")
       else List.nth l 0
   in
-  send_keys ctx.session_id tweet_area msg;
-  Unix.sleep 2;
-  let send_tweet_button =
-    match find ctx.session_id (XPath "//div[@data-testid='tweetButton']") with
-    | [] -> raise (Any (fmt "Send-tweet button not found"))
-    | _ as l ->
-      if List.length l > 1
-      then raise (Any "Too many send-tweet button found")
-      else List.nth l 0
-  in
   click ctx.session_id send_tweet_button;
   Unix.sleep 8
 ;;