diff --git a/src/proto_alpha/lib_protocol/test/integration/operations/test_tx_rollup.ml b/src/proto_alpha/lib_protocol/test/integration/operations/test_tx_rollup.ml
index 99a82b4964b5c5c52761ef73556750d00c34ecf2..bf1856dc2decd794e4d3763f90f70385a84068f9 100644
--- a/src/proto_alpha/lib_protocol/test/integration/operations/test_tx_rollup.ml
+++ b/src/proto_alpha/lib_protocol/test/integration/operations/test_tx_rollup.ml
@@ -476,8 +476,8 @@ module Nat_ticket = struct
       ~ticketer
       tx_rollup
 
-  let withdrawal ctxt ~ticketer ?(claimer = ticketer) ?(amount = amount)
-      tx_rollup : (Tx_rollup_withdraw.t * Tx_rollup_reveal.t) tzresult Lwt.t =
+  let withdrawal ctxt ~ticketer ~claimer ?(amount = amount) tx_rollup :
+      (Tx_rollup_withdraw.t * Tx_rollup_reveal.t) tzresult Lwt.t =
     ticket_hash ctxt ~ticketer ~tx_rollup >|=? fun ticket_hash ->
     let claimer = Context.Contract.pkh claimer in
     ( Tx_rollup_withdraw.{claimer; ticket_hash; amount},