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