diff --git a/generator/js_of_ast.ml b/generator/js_of_ast.ml
index 2df877bf3d1ff1d2baa9cb9ac648846d27afab2c..8a5f5f1d0ca03c8484bfe893084d705c7a7aac52 100755
--- a/generator/js_of_ast.ml
+++ b/generator/js_of_ast.ml
@@ -291,7 +291,7 @@ let find_module_path mod_list =
   in module_list := []; res
 
 and not_already_created mod_name =
-  not @@ List.exists (fun x -> x == mod_name) !module_created
+  not @@ List.exists ((=) mod_name) !module_created
 
 (**
  * Main part
diff --git a/generator/tests/types.ml b/generator/tests/types.ml
index 4d01c9aa97dc00a25ac856f6313e088645a93f90..f1ea841e4f397a798e4a9c418af4c671025ac49b 100644
--- a/generator/tests/types.ml
+++ b/generator/tests/types.ml
@@ -1,4 +1,4 @@
-open Cascade
+open Stack
 open Calc
 
 type exprone =