diff --git a/minimart/route.rkt b/minimart/route.rkt
index c71c0af..e45aaf9 100644
--- a/minimart/route.rkt
+++ b/minimart/route.rkt
@@ -595,7 +595,8 @@
   (define (pretty-print-matcher* m)
     (newline)
     (pretty-print-matcher m)
-    (flush-output))
+    (flush-output)
+    m)
  
   (void (pretty-print-matcher*
 	 (matcher-union (pattern->matcher 'A (list (list ?) 'x))