diff --git a/src/frontend/types.cppo.ml b/src/frontend/types.cppo.ml
index d80490f0d..eefe86b8d 100644
--- a/src/frontend/types.cppo.ml
+++ b/src/frontend/types.cppo.ml
@@ -484,7 +484,7 @@ and untyped_abstract_tree_main =
 (* -- declaration of type and module -- *)
   | UTDeclareVariantIn     of untyped_mutual_variant_cons * untyped_abstract_tree
   | UTModule               of Range.t * module_name * manual_signature option * untyped_abstract_tree * untyped_abstract_tree
-(* -- implerative -- *)
+(* -- imperative -- *)
   | UTLetMutableIn         of Range.t * var_name * untyped_abstract_tree * untyped_abstract_tree
   | UTSequential           of untyped_abstract_tree * untyped_abstract_tree
   | UTWhileDo              of untyped_abstract_tree * untyped_abstract_tree