diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss
index 68e61bf..6781229 100644
--- a/collects/mzlib/match.ss
+++ b/collects/mzlib/match.ss
@@ -3,7 +3,7 @@
 ;;
 ;; All bugs or questions concerning this software should be directed to
 ;; Bruce Hauman <bhauman@cs.wcu.edu>.  The latest version of this software
-;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.html.
+;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.php.
 ;;
 ;; Special thanks go out to:
 ;; Robert Bruce Findler for support and bug detection.
@@ -132,6 +132,7 @@
                       (lib "etc.ss")
                       (lib "list.ss")
                       (lib "include.ss")
+                      (lib "pretty.ss")
                       (lib "struct.ss" "syntax"))
 
   (require (lib "etc.ss")
diff --git a/collects/mzlib/plt-match.ss b/collects/mzlib/plt-match.ss
index cb7c7b0..f3cc92d 100644
--- a/collects/mzlib/plt-match.ss
+++ b/collects/mzlib/plt-match.ss
@@ -3,7 +3,7 @@
 ;;
 ;; All bugs or questions concerning this software should be directed to
 ;; Bruce Hauman <bhauman@cs.wcu.edu>.  The latest version of this software
-;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.html.
+;; can be obtained from http://sol.cs.wcu.edu/~bhauman/scheme/pattern.php.
 ;;
 ;; Special thanks go out to:
 ;; Robert Bruce Findler for support and bug detection.
@@ -142,7 +142,8 @@
                       (lib "etc.ss")
                       (lib "list.ss")
                       (lib "include.ss")
-                      (lib "struct.ss" "syntax"))
+                      (lib "struct.ss" "syntax")
+                      (lib "pretty.ss"))
   (require (lib "etc.ss")
            (lib "list.ss"))
   
@@ -177,6 +178,7 @@
 
     (define node-count 0)
 
+
     ;;!(syntax match-test)
     ;; This macro only returns a list of two numbers.  
     ;; The first number represents the
@@ -196,7 +198,7 @@
                                          '()
                                          (syntax (clause ...))
                                          stx))))
-                #`(list #,node-count
+                #`(list #,(add1 node-count)
                         #,rt)))))))
 
     (define match/proc