Fix assoc-let test

1 files changed, 2 insertions, 1 deletions

diff --git a/sx.el b/sx.el
index 4c1581e..bb7eddc 100644
--- a/sx.el
+++ b/sx.el
@@ -335,7 +335,8 @@ with a `link' property)."
 If ALIST doesn't have a `site' property, one is created using the
 `link' property."
   (declare (indent 1) (debug t))
-  `(let-alist (sx--ensure-site ,alist) ,@body))
+  `(progn (sx--ensure-site ,alist)
+          (let-alist ,alist ,@body)))
 
 (defcustom sx-init-hook nil
   "Hook run when SX initializes.