diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index 0097302..37d40f2 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -1127,17 +1127,11 @@
 
            (match-mac (lambda (stx)
                         (syntax-case stx (=>)
-                          ((_ exp (pat body) ...)
+                          ((_ exp clause ...)
                            (quasisyntax/loc stx (let ((x exp)) #,(gen-match (syntax x) 
                                                                             '() 
-                                                                            (syntax ((pat body) ...)) 
-                                                                            stx))))
-                          ((_ exp (pat (=> fail) body) ...)
-                           (quasisyntax/loc stx (let ((x exp)) #,(gen-match (syntax x) 
-                                                         '() 
-                                                         (syntax ((pat (=> fail) body) ...)) 
-                                                         stx)))))))
-
+                                                                            (syntax (clause ...)) 
+                                                                            stx)))))))
            (match-lambda-mac (lambda (stx)
                                (syntax-case stx ()
                                  [(k clause ...)