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@/site-lib/findlib/make_wizard.pattern"
+    in
   let p = parse_pattern f in
   close_in f;
   p