diff --git a/jscomp/ml/translcore.ml b/jscomp/ml/translcore.ml
index e5554ec77b..8434e5820c 100644
--- a/jscomp/ml/translcore.ml
+++ b/jscomp/ml/translcore.ml
@@ -182,6 +182,28 @@ let comparisons_table =
           bigintcomp = Pbigintcomp Ceq;
           simplify_constant_constructor = false;
         } );
+
+      (* FIXME: Core compatibility *)
+      ( "%bs_min",
+        {
+          objcomp = Pobjmax;
+          intcomp = Pintmax;
+          boolcomp = Pboolmax;
+          floatcomp = Pboolmax;
+          stringcomp = Pstringmax;
+          bigintcomp = Pbigintmax;
+          simplify_constant_constructor = false;
+        } );
+      ( "%bs_max",
+        {
+          objcomp = Pobjmin;
+          intcomp = Pintmin;
+          boolcomp = Pboolmin;
+          floatcomp = Pfloatmin;
+          stringcomp = Pstringmin;
+          bigintcomp = Pbigintmin;
+          simplify_constant_constructor = false;
+        } );
     |]
 
 let primitives_table =
@@ -360,7 +382,10 @@ let primitives_table =
       ("#null", Pundefined);
       ("#undefined", Pundefined);
       ("#is_nullable", Pisnullable);
-      ("#nullable_to_opt", Pnullable_to_opt);
+      ("#null_to_opt", Pnullable_to_opt);
+      ("#nullable_to_opt", Pnull_to_opt);
+      ("#undefined_to_opt", Pundefined_to_opt);
+      ("#makemutablelist", Pmakelist Mutable);
     |]
 
 let find_primitive prim_name = Hashtbl.find primitives_table prim_name