Index: ocamlbuild/command.ml
===================================================================
RCS file: /caml/ocaml/ocamlbuild/command.ml,v
retrieving revision 1.9
diff -u -r1.9 command.ml
--- ocamlbuild/command.ml	3 Mar 2009 16:54:56 -0000	1.9
+++ ocamlbuild/command.ml	15 Oct 2009 11:51:27 -0000
@@ -278,7 +278,7 @@
                 | Some _ -> false :: acc_res, acc_exn
               end ([], None) konts
             in match opt_exn with
-            | Some(exn) -> Some(res, exn)
+            | Some(exn) -> Some(List.rev res, exn)
             | None -> None
           else
             My_unix.execute_many ~ticker ?max_jobs ~display konts
Index: ocamlbuild/ocamlbuild_unix_plugin.ml
===================================================================
RCS file: /caml/ocaml/ocamlbuild/ocamlbuild_unix_plugin.ml,v
retrieving revision 1.5
diff -u -r1.5 ocamlbuild_unix_plugin.ml
--- ocamlbuild/ocamlbuild_unix_plugin.ml	3 Mar 2009 16:54:58 -0000	1.5
+++ ocamlbuild/ocamlbuild_unix_plugin.ml	15 Oct 2009 11:51:27 -0000
@@ -61,6 +61,7 @@
   Unix.isatty Unix.stdout
 
 let execute_many =
+  let exit i = raise (My_std.Exit_with_code i) in
   let exit = function
     | Ocamlbuild_executor.Subcommand_failed -> exit Exit_codes.rc_executor_subcommand_failed
     | Ocamlbuild_executor.Subcommand_got_signal -> exit Exit_codes.rc_executor_subcommand_got_signal