diff --git a/collects/mzlib/private/match/match-internal-func.ss b/collects/mzlib/private/match/match-internal-func.ss
index 133961f8c7..ba119f7f0d 100644
--- a/collects/mzlib/private/match/match-internal-func.ss
+++ b/collects/mzlib/private/match/match-internal-func.ss
@@ -96,7 +96,7 @@
                                      (set! **match-bound-vars** bv)
                                      (with-syntax ([((vars . vals) ...) (reverse bv)])
                                        #'(begin (set! vars vals) ...))))]
-                       [(vars ...) (reverse **match-bound-vars**)])
+                       [(vars ...) (map car (reverse **match-bound-vars**))])
            #'(begin
                (define vars #f) ...
                (let ([the-exp exp])