diff --git a/org-ql.el b/org-ql.el
index a54e328..c2c490c 100644
--- a/org-ql.el
+++ b/org-ql.el
@@ -153,8 +153,9 @@ a list of defined `org-ql' sorting methods: `date', `deadline',
                  (not buffer-unmodified-p))
              (puthash (current-buffer)
                       (list (buffer-modified-tick)
-                            (aprog1 (make-hash-table :test 'org-ql-hash-test)
-                              (puthash args (or new-result 'org-ql-nil) it)))
+                            (let ((table (make-hash-table :test 'org-ql-hash-test)))
+                              (puthash args (or new-result 'org-ql-nil) table)
+                              table))
                       org-ql-cache))
             (t (puthash args (or new-result 'org-ql-nil) query-cache)))
       new-result)))