diff --git a/lib/chibi/match-test.sld b/lib/chibi/match-test.sld
index 67947e1e..5de10d82 100644
--- a/lib/chibi/match-test.sld
+++ b/lib/chibi/match-test.sld
@@ -194,6 +194,11 @@
                 sum
                 (loop rest sum)))))
 
+      '(test "match-letrec" '(2 1 1 2)
+          (match-letrec (((x y) (list 1 (lambda () (list a x))))
+                         ((a b) (list 2 (lambda () (list x a)))))
+                        (append (y) (b))))
+
       (cond-expand
        (chibi
         (test "record positional"