diff -Naur ocaml-4.00.1/byterun/gc_ctrl.c ocaml-4.00.1-minor-heap-sizes/byterun/gc_ctrl.c
--- ocaml-4.00.1/byterun/gc_ctrl.c	2013-03-12 16:51:15.826348301 +0100
+++ ocaml-4.00.1-minor-heap-sizes/byterun/gc_ctrl.c	2013-03-12 16:50:48.904348123 +0100
@@ -396,7 +396,7 @@

     /* Minor heap size comes last because it will trigger a minor collection
        (thus invalidating [v]) and it can raise [Out_of_memory]. */
-  newminsize = norm_minsize (Bsize_wsize (Long_val (Field (v, 0))));
+  newminsize = Bsize_wsize (norm_minsize (Long_val (Field (v, 0))));
   if (newminsize != caml_minor_heap_size){
     caml_gc_message (0x20, "New minor heap size: %luk bytes\n",
                      newminsize/1024);
diff -Naur ocaml-4.00.1/byterun/minor_gc.c ocaml-4.00.1-minor-heap-sizes/byterun/minor_gc.c
--- ocaml-4.00.1/byterun/minor_gc.c	2013-03-12 16:51:15.826348301 +0100
+++ ocaml-4.00.1-minor-heap-sizes/byterun/minor_gc.c	2013-03-12 16:50:48.904348123 +0100
@@ -78,8 +78,8 @@
   char *new_heap;
   void *new_heap_base;

-  Assert (size >= Minor_heap_min);
-  Assert (size <= Minor_heap_max);
+  Assert (size >= Bsize_wsize(Minor_heap_min));
+  Assert (size <= Bsize_wsize(Minor_heap_max));
   Assert (size % sizeof (value) == 0);
   if (caml_young_ptr != caml_young_end) caml_minor_collection ();
                                     Assert (caml_young_ptr == caml_young_end);