diff --git a/ocaml/evaluate.ml b/ocaml/evaluate.ml
index 0b2e34c..4625735 100644
--- a/ocaml/evaluate.ml
+++ b/ocaml/evaluate.ml
@@ -25,8 +25,11 @@ let remove_spaces str =
 let evaluate str =
   match str with
   | str when is_url str ->
+    begin
       let title = SimpleHttp.get_http_title (SimpleHttp.get_body str) |> remove_spaces in
       match title with
       | Some t -> Some ("[ " ^ t ^ " ]")
       | None -> None
+    end
+  | "o/" -> Some "o/"
   | _ -> None