diff --git a/tests/emacs-edit-tests.lisp b/tests/emacs-edit-tests.lisp
index 4be3fc0..2d10f7b 100644
--- a/tests/emacs-edit-tests.lisp
+++ b/tests/emacs-edit-tests.lisp
@@ -13,7 +13,7 @@
   (let ((id1 (emacs-edit-generate-id))
         (id2 (emacs-edit-generate-id)))
     (is (plusp (length id1)))
-    (is (not (string= id1 id2)))) ;; Likely unique
+    (is (not (string= id1 id2)))))
 
 (test id-format
   (let ((formatted (emacs-edit-id-format "abc12345")))
@@ -31,4 +31,4 @@
                   :properties (list :ID "id:todo001" :TITLE "Task")
                   :contents nil)))
     (emacs-edit-set-todo ast "id:todo001" "DONE")
-    (is (string= (getf (getf ast :properties) :TODO) "DONE"))))
+    (is (string= (getf (getf ast :properties) :TODO) "DONE"))))
\ No newline at end of file