diff --git a/findlib/src/findlib-toolbox/make_wizard.ml b/findlib/src/findlib-toolbox/make_wizard.ml

index c9855ee..aea86d3 100644

--- a/findlib/src/findlib-toolbox/make_wizard.ml

+++ b/findlib/src/findlib-toolbox/make_wizard.ml

@@ -347,7 +347,11 @@ let parse_pattern inch =

 let load_pattern() =

   let where = Filename.dirname (Sys.argv.(0)) in

   let name = Filename.concat where "make_wizard.pattern" in

-  let f = open_in name in

+  let f =

+    try open_in name

+    with Sys_error _ ->

+      open_in "@LIBDIR@/ocaml/findlib/make_wizard.pattern"

+    in

   let p = parse_pattern f in

   close_in f;

   p