diff --git a/etaf-sqlite.el b/etaf-sqlite.el
index b54d71c..19955b2 100644
--- a/etaf-sqlite.el
+++ b/etaf-sqlite.el
@@ -264,7 +264,7 @@ validated once and never comes from a runtime query."
                         (etaf-sqlite--table-columns table)))
          (table-name (etaf-sqlite--physical-name
                       (etaf-sqlite--table-id table) "table"))
-         (order (when-let ((primary (etaf-sqlite--table-primary-key table)))
+         (order (when-let* ((primary (etaf-sqlite--table-primary-key table)))
                   (format " ORDER BY %s"
                           (etaf-sqlite--identifier
                            (etaf-sqlite--column-sql-name