diff --git a/ansi-tests/macrolet.lsp b/ansi-tests/macrolet.lsp
index b5ac38ff9aa29c446ada592382c4152d38c030d4..d470210821e296471df1ceb1d3fbb964bb438527 100644
--- a/ansi-tests/macrolet.lsp
+++ b/ansi-tests/macrolet.lsp
@@ -333,6 +333,12 @@
   (nil 2)
   (1 2))
 
+;;; &whole is followed by a destructuring pattern (see 3.4.4.1.2)
+(deftest macrolet.36
+  (macrolet ((%m (&whole (m a b) c d) `(quote (,m ,a ,b ,c ,d))))
+    (%m 1 2))
+  (%m 1 2 1 2))
+
 ;;; Symbol-macrolet tests
 
 (deftest symbol-macrolet.1