diff --git a/cli/cli.ml b/cli/cli.ml
index 7ee4ada..63f3120 100644
--- a/cli/cli.ml
+++ b/cli/cli.ml
@@ -42,7 +42,7 @@ let list_term =
 	Term.(const text_list $ time $ reverse $ field $ authors $ keywords $ topics),
 	Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; `P "List texts" ]
 
-let print_last =
+let print_last () =
 	match A.of_path (Sys.getcwd ()) with
 	| Error msg -> prerr_endline msg
 	| Ok archive ->
@@ -50,7 +50,7 @@ let print_last =
 		print_endline @@ A.fold ~order:A.oldest last "" archive
 
 let last_term =
-	Term.(const print_last),
+	Term.(const print_last $ const ()),
 	Term.info "last" ~doc:"most recent test" ~man:[ `S "DESCRIPTION"; `P "Print the filename of most recent text" ]
 
 let split_filetypes files =