cl-mvc-rest/cl-mvc-rest-uri

diff --git a/package.lisp b/package.lisp
index 45f980b..fc10c42 100644
--- a/package.lisp
+++ b/package.lisp
@@ -38,4 +38,6 @@
    #:uri-var
    #:uri-var-p
    #:uri-let
+   ;;  Matcher
+   #:uri-template-match
    #:compile-uri-template-matcher))
diff --git a/uri-template.lisp b/uri-template.lisp
index d9db199..1e8fa12 100644
--- a/uri-template.lisp
+++ b/uri-template.lisp
@@ -480,4 +480,5 @@ URI-TEMPLATE."
   (multiple-value-bind (regex vars) (uri-template-regex template)
     `(cl-ppcre:register-groups-bind ,vars (,(cl-ppcre:create-scanner regex)
 					    ,string)
-       ,@body)))
+       (with-uri-template-vars ,template
+         ,@body))))