diff --git a/lib/fs.ml b/lib/fs.ml
index fddd2dd..856ed7c 100644
--- a/lib/fs.ml
+++ b/lib/fs.ml
@@ -30,7 +30,7 @@ let rec to_tree path =
       (fun child_name -> to_tree (Filename.concat path child_name))
       (Sys.readdir path)
     in
-    let dirname = Filename.basename path in
+    let dirname = Filename.basename path ^ "/" in
     Dir (dirname, children)
   else
     File (Filename.basename path)