diff --git a/lib/file_store.ml b/lib/file_store.ml
index 69d4b7e..7a7561e 100644
--- a/lib/file_store.ml
+++ b/lib/file_store.ml
@@ -44,7 +44,7 @@ let iter_valid_text dir pred fn p =
 let fold_valid_text dir pred fn acc p =
   if not (text_filetype dir p) then acc else
     match to_text dir p with
-    Error x -> prerr_endline x; acc | Ok t -> if pred t then fn acc (t, dir^p) else acc
+    Error x -> prerr_endline x; acc | Ok t -> if pred t then fn acc (t, dir//p) else acc
 
 let iter ?(predicate=fun _ -> true) ?order fn {store;_} =
   match order with