diff --git a/compiler/lib/stdlib.ml b/compiler/lib/stdlib.ml
index bb01e08dab..ff63be924a 100644
--- a/compiler/lib/stdlib.ml
+++ b/compiler/lib/stdlib.ml
@@ -447,8 +447,7 @@ end = struct
 
   let shift_right = shift_op Int32.shift_right
 
-  let shift_right_logical a b =
-    shift_op Int32.shift_right_logical (Int32.logand a 0x7fffffffl) b
+  let shift_right_logical a b = shift_op Int32.shift_right_logical a b
 
   let to_int32 (x : t) : int32 = x
 end