diff --git a/tests/dynamic.scm b/tests/dynamic.scm
index ce43b41bc..a33fd5af9 100644
--- a/tests/dynamic.scm
+++ b/tests/dynamic.scm
@@ -11,6 +11,14 @@
                         (f))))
               20)))
 
+(test "dynamic: no closures"
+      (lambda (t)
+        (t.is (exec (begin
+                       (define f (let ((x 10))
+                                   (lambda () x)))
+                       (try (t) (catch (e) #t))))
+              #t)))
+
 (test "dynamic: function parameters"
       (lambda (t)
         (t.is (exec (begin