diff --git a/src/stdune/caml/caml.ml b/src/stdune/caml/caml.ml
index a050ef96..82dc6ca9 100644
--- a/src/stdune/caml/caml.ml
+++ b/src/stdune/caml/caml.ml
@@ -1,5 +1,6 @@
 module Filename = Filename
 module String   = String
+module Char     = Char
 module Result   = Result
 
 type ('a, 'error) result = ('a, 'error) Result.t =
diff --git a/src/stdune/char.ml b/src/stdune/char.ml
new file mode 100644
index 00000000..a6c6b1ee
--- /dev/null
+++ b/src/stdune/char.ml
@@ -0,0 +1,9 @@
+module Char = Caml.Char
+
+include struct
+  [@@@warning "-32-3"]
+  let uppercase_ascii    = Char.uppercase
+  let lowercase_ascii    = Char.lowercase
+end
+
+include Char