1 files changed, 6 insertions, 1 deletions
diff --git a/lib/system.ml b/lib/system.ml
index a967ed191c..55c77b0769 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -39,7 +39,12 @@ let all_subdirs root =
     with End_of_file ->
       closedir dirh
   in
-  if exists_dir root then traverse root ""; 
+  if exists_dir root then
+   begin
+    let root_base_name = Filename.basename root in
+     add root root_base_name ;
+     traverse root root_base_name
+   end ;
   List.rev !l
 
 let safe_getenv_def var def =