diff --git a/lisp/programming-org.lisp b/lisp/programming-org.lisp
index 07761cc..89f75dc 100644
--- a/lisp/programming-org.lisp
+++ b/lisp/programming-org.lisp
@@ -298,9 +298,13 @@ AST format: (:TYPE :HEADLINE :properties (:ID ... :TITLE ... :TAGS (...))
 
 (test test-org-headline-find-by-id
   "Contract 6: org-headline-find-by-id finds a headline by ID."
-  (let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root")
-                   :contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child"))
-                                  (list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2")))))))
+  (let* ((ast (list :type :HEADLINE
+                    :properties (list :ID "root" :TITLE "Root")
+                    :contents
+                    (list (list :type :HEADLINE
+                                :properties (list :ID "child1" :TITLE "Child"))
+                          (list :type :HEADLINE
+                                :properties (list :ID "child2" :TITLE "Child 2"))))))
     (let ((found (org-headline-find-by-id ast "child2")))
       (is (not (null found)))
       (is (string= "Child 2" (getf (getf found :properties) :TITLE))))
diff --git a/lisp/system-archivist.lisp b/lisp/system-archivist.lisp
index a4e315b..bd267e7 100644
--- a/lisp/system-archivist.lisp
+++ b/lisp/system-archivist.lisp
@@ -276,4 +276,4 @@ and dispatches as needed. Called by the deterministic gate."
                "Expected note creation to return T")
            (is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
                "Expected file test_note.org to exist"))
-      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))
+      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))))
diff --git a/org/programming-org.org b/org/programming-org.org
index d7884a7..98ebc38 100644
--- a/org/programming-org.org
+++ b/org/programming-org.org
@@ -402,9 +402,13 @@ Verification of the structural manipulation for Org-mode files and their AST rep
 
 (test test-org-headline-find-by-id
   "Contract 6: org-headline-find-by-id finds a headline by ID."
-  (let ((ast (list :type :HEADLINE :properties (list :ID "root" :TITLE "Root")
-                   :contents (list (list :type :HEADLINE :properties (list :ID "child1" :TITLE "Child"))
-                                  (list :type :HEADLINE :properties (list :ID "child2" :TITLE "Child 2")))))))
+  (let* ((ast (list :type :HEADLINE
+                    :properties (list :ID "root" :TITLE "Root")
+                    :contents
+                    (list (list :type :HEADLINE
+                                :properties (list :ID "child1" :TITLE "Child"))
+                          (list :type :HEADLINE
+                                :properties (list :ID "child2" :TITLE "Child 2"))))))
     (let ((found (org-headline-find-by-id ast "child2")))
       (is (not (null found)))
       (is (string= "Child 2" (getf (getf found :properties) :TITLE))))
diff --git a/org/system-archivist.org b/org/system-archivist.org
index 8e83c60..4a7980b 100644
--- a/org/system-archivist.org
+++ b/org/system-archivist.org
@@ -377,5 +377,5 @@ and dispatches as needed. Called by the deterministic gate."
                "Expected note creation to return T")
            (is (uiop:file-exists-p (merge-pathnames "test_note.org" tmp-dir))
                "Expected file test_note.org to exist"))
-      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t))))
+      (uiop:delete-directory-tree (uiop:ensure-directory-pathname tmp-dir) :validate t)))))
 #+end_src
\ No newline at end of file