diff --git a/contrapunctus/cp-chronometrist.el b/contrapunctus/cp-chronometrist.el
index 3d12a40..7a4771e 100644
--- a/contrapunctus/cp-chronometrist.el
+++ b/contrapunctus/cp-chronometrist.el
@@ -163,9 +163,7 @@ Return nil (and run `magit-status') if the user answers no."
         (t (magit-status) nil)))
 
 (defun contrapunctus-before-project-stop (project)
-  (if (member project '("Composing"
-                        "Khilona archiving"
-                        "Programming"))
+  (if (member project '("Composing" "Khilona archiving" "Programming"))
       (contrapunctus-commit-prompt)
     ;; all functions in `chronometrist-before-project-stop-functions'
     ;; must return t for successful clock-out
@@ -208,6 +206,7 @@ Return nil (and run `magit-status') if the user answers no."
     (_ (delete-other-windows))))
 
 (defun contrapunctus-count-expressions ()
+  (interactive)
   (chronometrist-sexp-in-file chronometrist-file
     (goto-char (point-min))
     (cl-loop with count = 0