1diff --git a/src/stog_url.ml b/src/stog_url.ml
2index 5d30a43f..c67bfc36 100644
3--- a/src/stog_url.ml
4+++ b/src/stog_url.ml
5@@ -40,7 +40,7 @@ let of_string s =
6 with _ ->
7 failwith (Printf.sprintf "Malformed URL %S" s)
8 ;;
9-let to_string = Uri.to_string ;;
10+let to_string u = Uri.to_string u;;
11
12 let path url =
13 let l =