diff --git a/measure-routes.rkt b/measure-routes.rkt
index 811d259..1659826 100644
--- a/measure-routes.rkt
+++ b/measure-routes.rkt
@@ -48,7 +48,7 @@
 		   (lambda ()
 		     (let loop ((i 0))
 		       (when (< i n-probes)
-			 (matcher-match-value *the-routes* message-expr)
+			 (trie-lookup *the-routes* message-expr)
 			 (loop (+ i 1)))))
 		   '())))
       (/ n-probes (/ wallclock-time 1000.0))))
@@ -73,8 +73,8 @@
        (lambda ()
 	 (let inner-loop ()
 	   (when (< *count* next-count)
-	     (set! *the-routes* (matcher-union *the-routes*
-					       (pattern->matcher *count* (list *count* ?))))
+	     (set! *the-routes* (trie-union *the-routes*
+					    (pattern->trie *count* (list *count* ?))))
 	     (set! *count* (+ *count* 1))
 	     (inner-loop))))
        '()))