diff --git a/collects/parser-tools/private-lex/front.ss b/collects/parser-tools/private-lex/front.ss
index 3803c91..1123fab 100644
--- a/collects/parser-tools/private-lex/front.ss
+++ b/collects/parser-tools/private-lex/front.ss
@@ -97,5 +97,6 @@
            
            (dfa (build-dfa re-acts cache)))
       ;(print-dfa dfa)
+      ;(printf "states: ~a~n" (dfa-num-states dfa))
       (dfa->table dfa)))
-  )
\ No newline at end of file
+  )
diff --git a/collects/parser-tools/private-lex/util.ss b/collects/parser-tools/private-lex/util.ss
index e7c7d33..c27400a 100644
--- a/collects/parser-tools/private-lex/util.ss
+++ b/collects/parser-tools/private-lex/util.ss
@@ -5,7 +5,7 @@
   
   (define-struct lex-abbrev (abbrev))
   
-  (define-syntax test-block
+  #;(define-syntax test-block
     (syntax-rules ()
       ((_ defs (code right-ans) ...)
        (let* defs
@@ -14,7 +14,7 @@
              (printf "Test failed: ~e gave ~e.  Expected ~e~n"
                      'code real-ans 'right-ans))) ...))))
 
-  #;(define-syntax test-block
+  (define-syntax test-block
     (syntax-rules ()
       ((_ x ...) (void))))
   
@@ -378,4 +378,4 @@
       (else
        (char-for-each-acc f (caar cs) (cdar cs) (cdr cs)))))
   
-    )
\ No newline at end of file
+    )