diff --git a/src/lib/uTop_complete.cppo.ml b/src/lib/uTop_complete.cppo.ml
index 8f4a75c..939d558 100644
--- a/src/lib/uTop_complete.cppo.ml
+++ b/src/lib/uTop_complete.cppo.ml
@@ -432,7 +432,7 @@ let add_names_of_type decl acc =
 let path_of_mty_alias = function
   | Mty_alias (_, path) -> path
   | _ -> assert false
-#else
+#elif OCAML_VERSION >= (4, 02, 0)
 let path_of_mty_alias = function
   | Mty_alias path -> path
   | _ -> assert false