diff --git a/language-server/etc/version_parser.ml b/language-server/etc/version_parser.ml
index d781adb8..3f6582e7 100644
--- a/language-server/etc/version_parser.ml
+++ b/language-server/etc/version_parser.ml
@@ -4,14 +4,15 @@ let is_number x = try let _ = int_of_string x in true with _ -> false ;;
 let main () =
   let v = Sys.argv.(1) in
   let v' = Str.(replace_first (regexp "^v") "" v) in     (* v1.20... -> 1.20... *)
-  let v' = Str.(replace_first (regexp "-.*$") "" v') in  (* ...-10-fjdnfs -> ... *)
+  let v' = Str.(replace_first (regexp "\\(-\\|\\+\\).*$") "" v') in  (* ...-10-fjdnfs -> ... *)
   let l = String.split_on_char '.' v' in
   (* sanitization *)
   let l =
     match l with
-    | [_;_;_] as l when List.for_all is_number l -> l
-    | [_] -> ["99";"99";"99"]
-    | _ -> Printf.eprintf "version_parser: cannot parse: %s\n" v; exit 1 in
+    | n1 :: n2 :: n3 :: _ when is_number n1 && is_number n2 && is_number n3 -> [n1;n2;n3]
+    | [_;_] as l when List.for_all is_number l -> l @ ["0"]
+    | [_] as l when List.for_all is_number l -> l @ ["0";"0"]
+    | _ -> ["99";"99";"99"] in
   let open Format in
   printf "(%a)%!" (pp_print_list ~pp_sep:(fun fmt () -> pp_print_string fmt ", ") pp_print_string) l
 ;;