diff --git a/compiler/core/js_exp_make.ml b/compiler/core/js_exp_make.ml
index c43bd4d244c..c0ec1eecb14 100644
--- a/compiler/core/js_exp_make.ml
+++ b/compiler/core/js_exp_make.ml
@@ -1608,7 +1608,7 @@ let unchecked_int32_mul ?comment e1 e2 : J.expression =
 let int32_pow ?comment (e1 : t) (e2 : t) : J.expression =
   match (e1.expression_desc, e2.expression_desc) with
   | Number (Int {i = i1}), Number (Int {i = i2}) ->
-    to_int32 (int ?comment (Ext_int.int32_pow i1 i2))
+    int ?comment (Ext_int.int32_pow i1 i2)
   | _ -> to_int32 (float_pow ?comment e1 e2)
 
 let rec int32_bxor ?comment (e1 : t) (e2 : t) : J.expression =