diff --git a/cmd/ssh_add.ml b/cmd/ssh_add.ml
index 83c5c70..8152d0e 100644
--- a/cmd/ssh_add.ml
+++ b/cmd/ssh_add.ml
@@ -32,8 +32,8 @@ let key_comment =
 
 let () = 
   let term =
-    Term.(const main $ bits $ key_comment),
-    Term.info "ssh-add" ~version:"0.1" in
-  match Term.eval term with
-  | `Error _ -> exit 1
-  | _ -> exit 0
+    Cmd.v (Cmd.info "ssh-add" ~version:"0.1")
+      Term.(const main $ bits $ key_comment)
+  in
+  Cmd.eval term
+  |> exit