diff --git a/compiler/obc/java/obc2java.ml b/compiler/obc/java/obc2java.ml
index 195e7db..717413d 100644
--- a/compiler/obc/java/obc2java.ml
+++ b/compiler/obc/java/obc2java.ml
@@ -313,13 +313,13 @@ let class_def_list classes cd_l =
         (* init actions [acts] in reverse order : *)
         (* init member variables *)
         let acts = [Ablock reset_mems] in
-        (* init member objects *)
-        let acts = List.fold_left obj_init_act acts cd.cd_objs in
         (* allocate member arrays *)
         let acts = List.fold_left allocate acts cd.cd_mems in
+        (* init member objects *)
+        let acts = List.fold_left obj_init_act acts cd.cd_objs in
         (* init static params *)
         let acts = (copy_to_this vds_params)@acts in
-        { b_locals = []; b_body = List.rev acts }
+        { b_locals = []; b_body = acts }
       in mk_methode ~args:vds_params body (shortname class_name), obj_env
     in
     let fields =