diff --git a/src/lib/uTop_complete.ml b/src/lib/uTop_complete.ml
index 0f40129..e8d192e 100644
--- a/src/lib/uTop_complete.ml
+++ b/src/lib/uTop_complete.ml
@@ -552,7 +552,7 @@ let lookup_module = Env.lookup_module
 let find_module = Env.find_module
 #else
 let lookup_module id env =
-  let path = Env.lookup_module id env in
+  let path = Env.lookup_module id env ~load:true in
   (path, (Env.find_module path env).md_type)
 let find_module path env = (Env.find_module path env).md_type
 #endif
diff --git a/src/lib/uTop_main.ml b/src/lib/uTop_main.ml
index 49a3c39..c3820cd 100644
--- a/src/lib/uTop_main.ml
+++ b/src/lib/uTop_main.ml
@@ -1037,7 +1037,7 @@ let typeof sid =
 #if ocaml_version < (4, 02, 0)
       let (path, mod_typ) = Env.lookup_module id env in
 #else
-      let path = Env.lookup_module id env in
+      let path = Env.lookup_module id env ~load:true in
       let mod_typ = (Env.find_module path env).Types.md_type in
 #endif
       let id = Ident.create (Path.name path) in