diff --git a/tests/let-syntax.scm b/tests/let-syntax.scm
new file mode 100644
index 00000000..d079c2a0
--- /dev/null
+++ b/tests/let-syntax.scm
@@ -0,0 +1,15 @@
+(import (scheme base))
+
+;; (let-syntax ((given-that (syntax-rules ()
+;; ((given-that test stmt1 stmt2 ...)
+;; (if test
+;; (begin stmt1
+;; stmt2 ...))))))
+;; (let ((if #t))
+;; (given-that if (set! if 'now))
+;; if)) ;; => now
+
+(let ((x 'outer))
+  (let-syntax ((m (syntax-rules () ((m) x))))
+    (let ((x 'inner))
+      (m)))) ;; Should be outer