From 58b4b9c1f58410ee2b1f6437de618b0ee8e4368c Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 12 Dec 2001 18:42:23 +0000
Subject: [PATCH] .

original commit: 6e953c8a4dc3ec6c6e619eb960a524e2893a39df
---
 collects/mzlib/match.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index 077e31c..bdc12cd 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -190,7 +190,7 @@
 	  `(,(parse-pattern (syntax p)) ,(syntax-e (syntax ..k)))]
 	 [(p . rest)
 	  (identifier? (syntax i))
-	  `(,(parse-pattern (syntax p)) ,@(parse-pattern (syntax rest)))]
+	  (cons (parse-pattern (syntax p)) (parse-pattern (syntax rest)))]
 	 [i (identifier? (syntax i)) (syntax i)]
 	 [_else
 	  (let ([s (syntax-e p)])